Мастера нужна ваша помощь:)

← →
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 как думаешь для чего он?

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

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

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