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

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

Мастера нужна ваша помощь:) [D5, Win95/98]

Arhangel ©   (2002-05-29 21:09:00) 

На toolbar"e была создана кнопка в рунтайме, когда на нее нажмут выполнится какое-либо действие. Как узнать что она была нажата?

---

Arhangel   (2002-05-30 09:45:00) [1]

Спасибо большое, что объяснили дурочку;)))

---

VID   (2002-05-30 00:52:00) [2]

procedure TForm1.cl(Sender:Tobject);
begin
ShowMessage("Obj name is ""+(Sender as TToolbutton).name+""");
end;

---

Anatoly Podgoretsky   (2002-05-29 22:31:00) [3]

Arhangel © (29.05.02 22:05)
А ты видел там параметр Sender как думаешь для чего он?

---

Arhangel   (2002-05-29 22:05:00) [4]

Это конечно все хорошо, но можно как-нить подругому.
Т.к. количество кнопок зарание не известно.
Но вам все равно спасибо!

---

VID   (2002-05-29 21:30:00) [5]

type
TForm1 = class(TForm)
ToolBar1: TToolBar;
ToolButton1: TToolButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure cl(Sender:TObject);
public
{ Public declarations }
end;

....

procedure TForm1.cl(Sender:Tobject);
begin
ShowMessage("click");
end;
....


procedure TForm1.FormCreate(Sender: TObject);
begin
toolbutton1.OnClick :=cl;
end;

---

Наверх