n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/WinFormWithButton.pas

29 строк563 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// �������� �������� ����������
#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.