Получить ссылку на вызывающий объект

[grenles]

procedure TFormBl.AllControlsKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
case Key of
13 : begin
SelectNext(Sender as TWinControl, true, true);
Key := 0;
end;
else
begin
Inherited
end
end
end;

Эта процедура вызывается из нескольких объектов типа Edit.
Вопрос - как определить, в какой конкретно объекте возникло событие и откуда оно было вызвано.

Я понимаю, что надо копить Sender. но что-то пока туго. Мне надо получить имя объекта или что-то. однозначто его определяющее.

[mihali4]

Ничего копить не надо.
Вызвавший объект = (Sender as TEdit).Name
Для идентификации компонентов формы существует также свойство TAG - вы можете присвоить произвольный, но уникальный номер каждому компоненту и обращаться по этому номеру.

[NeiL]

Используй свойство Tag

[grenles]

спасибо, токма почему то Sender = () - то есть пустой, зараза.
Ладно, буду думать дальше.

[mihali4]

Сообщение от grenles

спасибо, токма почему то Sender = () - то есть пустой

Эта процедура вызывается из нескольких объектов типа Edit.

Каким образом вы производите вызов?

[grenles]

Эта процедура цепляется как обработчик события OnKeyDown
Соответственно, как я понимаю, она вызывается системой или Дельфи и выполняется ранее приведенный код. Вопрос - как при вызове этого обработчика понять, какой объект его сгенерировал.

[grenles]

Вот нашел вариант через задние ворота:

Obj := (Sender as TEdit).Hint;
if Obj = 'np00' then PageControlNp.Pages[4].Show;

перед этим в поле Hint добавил "np00"

[grenles]

Столкнулся с проблемой, если
Sender типа TComboBox - выдается исключение.
Ищу условие обхода этого.
Использование
try
...
finally
....
end;
Не решает проблемы.

[grenles]

Вот пока текущее решение

procedure TFormBl.AllControlsKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
var
Obj : TComponentName;
begin
case Key of
13 : begin
SelectNext(Sender as TWinControl, true, true);
Key := 0;
end;
else
begin
if Sender.ClassName = 'TEdit' then
try
Obj := (Sender as TEdit).Hint;
if Obj = 'np000' then PageControlAbonent.Pages[4].Show;
finally
Inherited
end;
end
end
end;

[mihali4]

Sender типа TComboBox - выдается исключение.
Ищу условие обхода этого.

Точно так же делайте проверку:
if Sender.ClassName = 'TComboBox' then