Как узнать какая компонента(имя) вызвала процедуру

← →
JibSkeart © (2003-03-20 13:56) [0]

Допустим
жмем на кнопку

procedure Tform1.Button2Click(Tobject Sender)
begin
ButtonClick1(Sender);
end

procedure Tform1.Button1Click(Tobject Sender)
begin
...
// Вот что надо сделать сдесь ?
// if Sender as TButton естесно неподходит мне нужно имя
// тоесть Button2 как в нашем примере
end

Ну допустим в нашем примере чтобы было
"Эту процедуру вызвала Button2"

мне интнрестно как это можно сделать более рационально чтоли :)
так то я уже сделал рабочий вариант

← →
Жук © (2003-03-20 14:08) [1]

ShowMessage("Эту процедуру вызвал "+ActiveControl.Name);

← →
JibSkeart © (2003-03-20 14:09) [2]

Спасибо Попробуем ...

← →
passlight © (2003-03-20 14:11) [3]

Может быть так?
if (Sender as TButton).Name then ....

← →
Passlight © (2003-03-20 14:14) [4]

Пардон, опечатка...
if (Sender as TButton).Name = "Button2" then ....

← →
REA © (2003-03-20 14:34) [5]

А зачем сначала себя запутать, а потом решать кто вызвал?
Если группа кнопок есть, то им можно проставить свойство Tag и по нему выбирать действие.

ActiveControl.Name
нподходит :(
так как если у меня в это время стоит фокус на TEdit
то есть он и показывает TEdit ...

Можно переменную объявить и пихать туда имя перед переходом в другую процедуру. А вообще : странно всё это. :-)

Как узнать какая компонента(имя) вызвала процедуру Найти похожие ветки