unit1.dfm

一个桌面宠物的例子

object Form1: TForm1
  Left = 291
  Top = 122
  Width = 322
  Height = 216
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object MyAgent: TAgent
    Left = 184
    Top = 96
    Width = 32
    Height = 32
    ControlData = {020200004F0300004F030000}
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 120
    Top = 96
  end
  object Timer2: TTimer
    Enabled = False
    OnTimer = Timer2Timer
    Left = 72
    Top = 40
  end
  object CoolTrayIcon1: TCoolTrayIcon
    CycleInterval = 0
    IconIndex = 0
    PopupMenu = PopupMenu1
    Left = 32
    Top = 112
  end
  object PopupMenu1: TPopupMenu
    Left = 208
    Top = 40
    object A1: TMenuItem
      Caption = #20851' '#20110'(&A)'
    end
    object N1: TMenuItem
      Caption = #36864' '#20986'(&E)'
      OnClick = N1Click
    end
  end
end