ufmain.dfm

托盘程序,程序运行时.将该程序在右下栏显示运行状态

object fMain: TfMain
  Left = 366
  Top = 210
  Width = 330
  Height = 93
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #31995#32479#25176#30424#31243#24207
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMinimized
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 64
    Top = 16
    Width = 193
    Height = 41
    AutoSize = False
    Caption = #31995#32479#25176#30424#31243#24207
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 2000
    OnTimer = Timer1Timer
    Left = 24
    Top = 16
  end
  object PopupMenu1: TPopupMenu
    Left = 256
    object Normal: TMenuItem
      Caption = #36820#22238
      OnClick = NormalClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object mini: TMenuItem
      Caption = #26368#23567#21270
      OnClick = miniClick
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object max: TMenuItem
      Caption = #26368#22823#21270
      OnClick = maxClick
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object CloseN: TMenuItem
      Caption = #36864#20986
      OnClick = CloseNClick
    end
  end
end