
08.01.2011, 20:15
|
 |
Продвинутый
|
|
Регистрация: 07.09.2010
Сообщения: 726
Репутация: 26711
|
|
Код:
procedure TForm1.Click_(Sender: TObject);
begin
ТВОЙ код СЮДА вставляй
ShowMessage('Вы нажали на кнопку.');
end;
procedure TForm1.FormCreate(Sender: TObject);
var
Btn: TButton;
begin
Btn := TButton.Create(Form1);
With Btn do begin
parent:=Form1;
caption:='button';
OnClick := Form1.Click_;
end;
end;
__________________
Помогаю за Спасибо
|