Текущий архив: 2006.01.01;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.029 c