InstallerSamples/!MainFeatures/07_NetLibs/WinFormWithButton.pas - master - n-dimens/pascalabcnet

InstallerSamples/!MainFeatures/07_NetLibs/WinFormWithButton.pas

27 строк603 B

Mikhalkovich Stanislav

Поправил старые примеры 2

12 окт 2025, 22:21

12 окт 2025, 22:21d6a70ee

// Создание оконного приложения
{$apptype windows}
{$reference System.Windows.Forms.dll}

uses 
  System,
  System.Windows.Forms;

var myForm: Form;
  
procedure MyButtonClick(sender: Object; e: EventArgs);
begin
  myForm.Close;
end;

begin
  myForm := new Form;
  myForm.Text := 'Оконное приложение';
  var 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.