![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Получение имени объекта [D5, NT4]
OlDemon © (2003-01-05 07:50:00)Просвятите плиз ..
Есть несколько кнопочек у которых один обработчик кликов. Как из Sender-а получить имя кнопочки? ЗАранее спасибо.
OlDemon (2003-01-05 11:18:00) [1]2 all> Спасибо все получилось
fav (2003-01-05 07:59:00) [2]Обработчик на всех кнопках будет выдавать имя обьекта
procedure TForm1.Button1Click(Sender: TObject);
begin
if Sender is TButton then
begin
ShowMessage((Sender as TButton).Name);
end;
end;
BoxTer (2003-01-05 07:59:00) [3]на каждый из батонов придется повесить:
procedure TForm1.Button1Click(Sender: TObject);
begin
(sender as TButton).Name;
end;