clock.dfm

小闹钟程序

object MainWnd: TMainWnd
  Left = 188
  Top = 181
  BorderIcons = []
  BorderStyle = bsNone
  ClientHeight = 90
  ClientWidth = 199
  Color = clBtnFace
  TransparentColorValue = clGray
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 193
    Height = 81
    AutoSize = True
    Transparent = True
    OnMouseDown = Image1MouseDown
  end
  object Label1: TLabel
    Left = 12
    Top = 26
    Width = 101
    Height = 28
    AutoSize = False
    Caption = '00:00:00'
    Color = clBackground
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -24
    Font.Name = 'Monotype Corsiva'
    Font.Style = [fsBold, fsItalic]
    ParentColor = False
    ParentFont = False
    Transparent = True
    OnMouseDown = Label1MouseDown
  end
  object PopupMenu1: TPopupMenu
    Left = 128
    Top = 24
    object mnu_Icon: TMenuItem
      Caption = #32553#20026#23567#22270#26631
      OnClick = mnu_IconClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object mnu_SysOption: TMenuItem
      Caption = #31995#32479#36873#39033'...'
      OnClick = mnu_SysOptionClick
    end
    object mnu_AlarmOption: TMenuItem
      Caption = #38393#38083#35774#32622'...'
      OnClick = mnu_AlarmOptionClick
    end
    object mnu_ChangeTime: TMenuItem
      Caption = #31995#32479#26102#38388#26657#20934'...'
      OnClick = mnu_ChangeTimeClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object mnu_Exit: TMenuItem
      Caption = #36864#20986
      OnClick = mnu_ExitClick
    end
  end
  object MainTimer: TTimer
    Interval = 500
    OnTimer = MainTimerTimer
    Left = 88
    Top = 48
  end
end