Программирование в Delphi - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Программирование в Delphi (http://forum.oszone.net/showthread.php?t=29476)

Привет, народ!
Если у меня есть штук 100 компонентов и нужно вызвать одну универсальную процедуру, в которой выполнялся универсальный код для каждого компонента, и отличался бы только объектом, на который кликнули мышью. Вобщем нужно в процедуре обработки клика мыши на компоненте вызвать процедуру и передать ей объект, на который кликнули, чтобы потом через переданную переменную добраться до свойств самого объекта. Сам компонент: DBChart. Нужное свойство: Visible.
Если можно, пару строк кода конкретно.
Буду премного благодарен.

На скорую руку пример для кнопки (сделай этот обработчик общим для нескольких кнопок)

Код:

procedure TForm1.Button1Click(Sender: TObject);

begin

 &nbsp; with Sender as TButton do

 &nbsp; begin

 &nbsp; &nbsp; &nbsp;case Tag of

 &nbsp; &nbsp; &nbsp;1:{some action};

 &nbsp; &nbsp; &nbsp;2:{some action};

 &nbsp; &nbsp; &nbsp;3:{some action};

 &nbsp; &nbsp; &nbsp;end;

 &nbsp; end;

end;

Да, если все 100 компонентов - кнопки. Если нет, то глядеть в сторону слова is, а потом, если надо, и в as :).