unit_tray.dfm

系统托盘实现 delphi 会自动显示托盘程序

object Form1: TForm1
  Left = 386
  Top = 154
  Width = 200
  Height = 345
  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
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 64
    Top = 32
    Width = 75
    Height = 25
    Caption = #26368#23567#21270
    TabOrder = 0
    OnClick = Button1Click
  end
  object PopupMenu1: TPopupMenu
    Left = 72
    Top = 112
    object Resize: TMenuItem
      Caption = #36824#21407
      OnClick = ResizeClick
    end
    object Exit: TMenuItem
      Caption = #36864#20986
      OnClick = ExitClick
    end
  end
end