| Итак, так как кнопка описана в модуле StdCtrls, то его необходимо подключить. Добавьте в секцию uses модуль StdCtrls: Теперь нужно объявить глобальную переменную типа TButton:
Будем создавать кнопку по созданию формы. Кликаем по форме два раза, тем самым создавая процедуру, которая выполнится при создании формы. Там пишем: Code procedure TForm1.FormCreate(Sender: TObject);
begin
With my_btn do
begin
my_btn:=TButton.Create(form1); // создаем объект
my_btn.Parent:=Form1; // указываем родителя
my_btn.Name:='my_btn'; // зададим кнопке имя
// зададим координаты кнопки
my_btn.Left:=50;
my_btn.Top:=50;
my_btn.Caption:='Кнопка';
// укажем процедуру, которая будет выполняться по
// клику на кнопку
my_btn.OnClick:=my_btnClick;
end;
end;
Так как мы еще не написали процедуры, которая выполнится по клику на кнопку, то во время компиляции будет выдаваться ошибка. Теперь после строчки {$R *.dfm} пишем: Code procedure TForm1.my_btnClick(Sender: TObject);
begin
close;
end;
и добавляем Code procedure my_btnClick(Sender: TObject);
в секцию Private Запускаем программу и нажимаем на кнопку. Программа должна закрыться. Полный код программы:
Code
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
procedure my_btnClick(Sender: TObject);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
my_btn: TButton;
implementation
{$R *.dfm}
procedure TForm1.my_btnClick(Sender: TObject);
begin
close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
With my_btn do
begin
my_btn:=TButton.Create(form1); // создаем объект
my_btn.Parent:=Form1; // указываем родителя
my_btn.Name:='my_btn'; // зададим кнопке имя
// зададим координаты кнопки
my_btn.Left:=50;
my_btn.Top:=50;
my_btn.Caption:='Кнопка';
// укажем процедуру, которая будет выполняться по
// клику на кнопку
my_btn.OnClick:=my_btnClick;
end;
end;
end.
| 
