home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Anthology
/
aDELPHI.iso
/
Runimage
/
Delphi50
/
Demos
/
AppEvents
/
main.dfm
/
main.txt
Wrap
Text File
|
1999-08-11
|
3KB
|
122 lines
object MainForm: TMainForm
Left = 191
Top = 106
Width = 696
Height = 358
Caption = 'MainForm'
Color = clBtnFace
ParentFont = True
Menu = MainMenu
OldCreateOrder = False
PixelsPerInch = 120
TextHeight = 16
object lblOnMessage: TLabel
Left = 9
Top = 0
Width = 77
Height = 16
Caption = 'OnMessage:'
end
object lblOther: TLabel
Left = 345
Top = 48
Width = 149
Height = 16
Caption = 'Other Application Events:'
end
object lblOnIdle: TLabel
Left = 121
Top = 0
Width = 42
Height = 16
Caption = 'OnIdle:'
end
object lblOnActionUpdate: TLabel
Left = 233
Top = 0
Width = 102
Height = 16
Caption = 'OnActionUpdate:'
end
object HintButton: TButton
Left = 345
Top = 16
Width = 336
Height = 25
Hint = 'This is a hint'
Caption = 'Hint button test (move mouse here)'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object lbOnMessage: TListBox
Left = 9
Top = 16
Width = 104
Height = 289
ItemHeight = 16
TabOrder = 1
end
object lbOther: TListBox
Left = 345
Top = 64
Width = 336
Height = 241
ItemHeight = 16
TabOrder = 2
end
object lbIdle: TListBox
Left = 121
Top = 16
Width = 104
Height = 289
ItemHeight = 16
TabOrder = 3
end
object lbActionUpdate: TListBox
Left = 231
Top = 16
Width = 105
Height = 289
ItemHeight = 16
TabOrder = 4
end
object ApplicationEvents: TApplicationEvents
OnActionExecute = ApplicationEventsActionExecute
OnActionUpdate = ApplicationEventsActionUpdate
OnActivate = ApplicationEventsActivate
OnDeactivate = ApplicationEventsDeactivate
OnException = ApplicationEventsException
OnIdle = ApplicationEventsIdle
OnHelp = ApplicationEventsHelp
OnHint = ApplicationEventsHint
OnMessage = ApplicationEventsMessage
OnMinimize = ApplicationEventsMinimize
OnRestore = ApplicationEventsRestore
OnShowHint = ApplicationEventsShowHint
OnShortCut = ApplicationEventsShortCut
Left = 648
Top = 8
end
object ActionList: TActionList
Left = 616
Top = 8
object Action: TAction
Caption = 'Action1'
OnExecute = ActionExecute
end
end
object MainMenu: TMainMenu
Left = 632
Top = 40
object MenuAction: TMenuItem
Action = Action
Caption = '&Action'
end
object MenuException: TMenuItem
Caption = '&Raise Exception'
OnClick = MenuExceptionClick
end
end
end