diff --git a/HelloWorld.dfm b/HelloWorld.dfm new file mode 100644 index 0000000..4a61e41 --- /dev/null +++ b/HelloWorld.dfm @@ -0,0 +1,37 @@ +object HelloWorldForm: THelloWorldForm + Left = 300 + Top = 200 + BorderStyle = bsDialog + Caption = 'Hello World' + ClientHeight = 120 + ClientWidth = 380 + Position = poScreenCenter + Visible = False + object Button1: TButton + Left = 20 + Top = 40 + Width = 100 + Height = 32 + Caption = 'Button 1' + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 140 + Top = 40 + Width = 100 + Height = 32 + Caption = 'Button 2' + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 260 + Top = 40 + Width = 100 + Height = 32 + Caption = 'Button 3' + TabOrder = 2 + OnClick = Button3Click + end +end diff --git a/HelloWorld.pas b/HelloWorld.pas index bd5e799..1a756fa 100644 --- a/HelloWorld.pas +++ b/HelloWorld.pas @@ -1,4 +1,19 @@ +procedure THelloWorldForm.Button1Click(Sender: TObject); +begin + ShowMessage('Hello World - Button 1'); +end; + +procedure THelloWorldForm.Button2Click(Sender: TObject); +begin + ShowMessage('Hello World - Button 2'); +end; + +procedure THelloWorldForm.Button3Click(Sender: TObject); +begin + ShowMessage('Hello World - Button 3'); +end; + procedure HelloWorld; begin - ShowMessage('Hello World'); + HelloWorldForm.ShowModal; end;