Форум: "Начинающим";
Текущий архив: 2006.01.01;
Скачать: [xml.tar.bz2];
ВнизButton. Как добавить обработку нажатия? Найти похожие ветки
← →
ХанК (2005-12-14 10:53) [0]Не пойму как связать кнопку и процедуру обработки ее нажатия.
← →
saNat © (2005-12-14 11:14) [1]Например, так:
Unit Unit1;
Interface
Uses
Classes,Controls,Dialogs,Forms,Graphics,Messages,StdCtrls,SysUtils,Variants,Windows;
Type
TForm1=Class(TForm)
Button1 :TButton;
Procedure FormActivate(Sender:TObject);
Procedure ButtonClick(Sender:TObject);
Private
Public
End;
Var
Form1:TForm1;
Implementation
{$R *.dfm}
Procedure TForm1.FormActivate(Sender:TObject);
Begin
Button1.OnClick:=ButtonClick;
End;
Procedure TForm1.ButtonClick(Sender:TObject);
Begin
ShowMessage("Button click");
End;
End.
С уважением, ЕВА
← →
Anatoly Podgoretsky © (2005-12-14 11:35) [2]ХанК (14.12.05 10:53)
Двойной щелчок по кнопке и пиши в шаблоне свой код.
← →
ХанК (2005-12-14 11:39) [3]Огромное спасибо.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.01.01;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.011 c