30 lines
567 B
ObjectPascal
30 lines
567 B
ObjectPascal
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
{$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 := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|||
|
|
myButton := new Button;
|
|||
|
|
myButton.Text := ' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ';
|
|||
|
|
myButton.AutoSize := True;
|
|||
|
|
myButton.Left := 90;
|
|||
|
|
myButton.Top := 110;
|
|||
|
|
myForm.Controls.Add(myButton);
|
|||
|
|
myButton.Click += MyButtonClick;
|
|||
|
|
Application.Run(myForm);
|
|||
|
|
end.
|