Скачать: CL | DM;

Мастера нужна ваша помощь:)   Найти похожие ветки 

← →
Arhangel ©   (2002-05-29 21:09) [0]

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

---

← →
VID ©   (2002-05-29 21:30) [1]

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;

---

← →
Arhangel ©   (2002-05-29 22:05) [2]

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

---

← →
Anatoly Podgoretsky ©   (2002-05-29 22:31) [3]

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

---

← →
VID ©   (2002-05-30 00:52) [4]

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

---

← →
Arhangel ©   (2002-05-30 09:45) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c