Текущий архив: 2002.06.10;
Скачать: 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 вся ветка
Текущий архив: 2002.06.10;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.008 c
