Обращение к выделенному объекту

[Stilet]

а дальше не смогу

Тебе же даже примеры дали.

procedure ОдинИзТехКомуНадоПрисвоитьClick(Sender:TObject); // присваиваем это событие всем контролам по клику, которым надо менять цвет
begin
 ТаСамаяПеременная:=TWinControl(sender);
end;

[Serge_Bliznykov]

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

Тебе же даже примеры дали.

 ТаСамаяПеременная:=TWinControl(sender);

Виталий, никак не пойму, зачем Вы автора топика учите сохранять контрол, когда ему уже показали, как присвоить цвет тому контролу, по которому кликнули?!
Или я что-то не понимаю или Вы учите TC тому, что ему в данный момент не нужно!


alextrof94, красиво!