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

← →
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 и по нему выбирать действие.

← →
JibSkeart (2003-03-20 14:38) [6]

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

← →
Жук (2003-03-20 14:42) [7]

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

← →
JibSkeart (2003-03-20 14:43) [8]

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