Получение имени объекта

← →
OlDemon © (2003-01-05 07:50) [0]

Просвятите плиз ..
Есть несколько кнопочек у которых один обработчик кликов. Как из Sender-а получить имя кнопочки? ЗАранее спасибо.

← →
fav © (2003-01-05 07:59) [1]

Обработчик на всех кнопках будет выдавать имя обьекта

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) [2]

на каждый из батонов придется повесить:

procedure TForm1.Button1Click(Sender: TObject);
begin
(sender as TButton).Name;
end;

2 all> Спасибо все получилось

Получение имени объекта Найти похожие ветки