2022-11-07 15:37:21 +01:00
|
|
|
object MainForm: TMainForm
|
|
|
|
Left = 0
|
|
|
|
Top = 0
|
|
|
|
Caption = 'MVCAsync Sample'
|
|
|
|
ClientHeight = 181
|
2023-01-28 23:31:00 +01:00
|
|
|
ClientWidth = 693
|
2022-11-07 15:37:21 +01:00
|
|
|
Color = clBtnFace
|
|
|
|
Font.Charset = DEFAULT_CHARSET
|
|
|
|
Font.Color = clWindowText
|
|
|
|
Font.Height = -12
|
|
|
|
Font.Name = 'Segoe UI'
|
|
|
|
Font.Style = []
|
|
|
|
TextHeight = 15
|
|
|
|
object btnAsync1: TButton
|
|
|
|
Left = 16
|
|
|
|
Top = 16
|
|
|
|
Width = 161
|
|
|
|
Height = 41
|
|
|
|
Caption = 'Async Test'
|
|
|
|
TabOrder = 0
|
|
|
|
OnClick = btnAsync1Click
|
|
|
|
end
|
|
|
|
object Edit1: TEdit
|
|
|
|
Left = 16
|
|
|
|
Top = 72
|
|
|
|
Width = 161
|
|
|
|
Height = 23
|
|
|
|
TabOrder = 1
|
|
|
|
Text = 'Edit1'
|
|
|
|
end
|
|
|
|
object btnWithEx: TButton
|
2023-01-28 23:31:00 +01:00
|
|
|
Left = 448
|
2022-11-07 15:37:21 +01:00
|
|
|
Top = 16
|
|
|
|
Width = 161
|
|
|
|
Height = 41
|
|
|
|
Caption = 'Async Test With Exception'
|
|
|
|
TabOrder = 2
|
|
|
|
OnClick = btnWithExClick
|
|
|
|
end
|
2023-01-28 23:31:00 +01:00
|
|
|
object btnWithExcDefault: TButton
|
|
|
|
Left = 272
|
|
|
|
Top = 16
|
|
|
|
Width = 161
|
|
|
|
Height = 41
|
|
|
|
Caption = 'Async Test With Exception (default)'
|
|
|
|
TabOrder = 3
|
|
|
|
WordWrap = True
|
|
|
|
OnClick = btnWithExcDefaultClick
|
|
|
|
end
|
2022-11-07 15:37:21 +01:00
|
|
|
end
|