30 lines
567 B
ObjectPascal
30 lines
567 B
ObjectPascal
// Ñîçäàíèå îêîííîãî ïðèëîæåíèÿ
|
|
{$apptype windows}
|
|
{$reference 'System.Windows.Forms.dll'}
|
|
|
|
uses
|
|
System,
|
|
System.Windows.Forms;
|
|
|
|
var
|
|
myForm: Form;
|
|
myButton: Button;
|
|
|
|
procedure MyButtonClick(sender: Object; e: EventArgs);
|
|
begin
|
|
myForm.Close;
|
|
end;
|
|
|
|
begin
|
|
myForm := new Form;
|
|
myForm.Text := 'Îêîííîå ïðèëîæåíèå';
|
|
myButton := new Button;
|
|
myButton.Text := ' Çàêðûòü îêíî ';
|
|
myButton.AutoSize := True;
|
|
myButton.Left := 90;
|
|
myButton.Top := 110;
|
|
myForm.Controls.Add(myButton);
|
|
myButton.Click += MyButtonClick;
|
|
Application.Run(myForm);
|
|
end.
|