| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Button. Как добавить обработку нажатия?

ХанК ©   (2005-12-14 10:53:00) 

Не пойму как связать кнопку и процедуру обработки ее нажатия.

---

ХанК   (2005-12-14 11:39:00) [1]

Огромное спасибо.

---

Anatoly Podgoretsky   (2005-12-14 11:35:00) [2]

ХанК   (14.12.05 10:53)  
Двойной щелчок по кнопке и пиши в шаблоне свой код.

---

saNat   (2005-12-14 11:14:00) [3]

Например, так:

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.


С уважением, ЕВА

---

Наверх