[KsandrXXX]

Здравствуйте уважаемые, подскажите пожалуйста, как определить событие какого компонента вызвало процедуру, и передать этой процедуре свойтва этого компонента.
Процедура выполняет форматирование текста в combobox и edit. Нужно передать этой процедуре в каком именно компоненте надо форматировать.

[Rosenkrantz]

Параметр Sender указывает на компонент, вызвавший событие.
Преобразуйте его к нужному типу.

Код:

Form1.Caption := (Sender as TButton).Caption;

[drunia]

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

Параметр Sender указывает на компонент, вызвавший событие.
Преобразуйте его к нужному типу.

Код:

Form1.Caption := (Sender as TButton).Caption;

А как определить что именно находится в Sender ? перебором всех контролов (Sender.ClassName) на форме? Если да, то как правельние сие организовать?

[s0Creator]

Код:

if (Sender is TButton) then 
   //.....
else
if (Sender is TPanel) then
   //...

[Karsh]

понял, что ерунду написал, а как удалить пост не знаю
модераторы, удалите этот пост.