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

[Алексей_2012]

Здравствуйте, на форме есть несколько разных объектов, например панель и метка, так же имеется колорбокс, дак вот, как сделать так, чтобы например щелкнув по метке выбранный цвет из колорбокса присваивался метке, а если щелкнуть по панели, то цвет из колорбокса присваивался панели?

[hon]

Рекомендую почитать справку по компоненту ColorBox.

[Stilet]

выбранный цвет из колорбокса присваивался метке

Label1.Color:=ColorBox1.Selected;

а если щелкнуть по панели

А если в боксе нет такого цвета?

[Алексей_2012]

я знаю что

 Label1.Color:=ColorBox1.Selected;

Я имел ввиду другое, есть допустим 10 объектов, и 1 колорбокс, я пытаюсь реализовать такое:

если щелкнули по метке, то колорбокс присваивает цвет метке, если щелкнули по панели, то тот же колор бокс присваивает цвет панели и тд

[Stilet]

Надо просто запоминать щелкнутый контрол в некую перементку TWinControl, и уже ей присваивать колор.

[Алексей_2012]

А как это сделать?

[Stilet]

Что значит как сделать?
Ты можешь объявить переменку типа TWinControl?
Потом ты можешь ей присвоить Sender в обработчиках кликов по контролам?

[IliaIT]

можно создать одно событие (например на правое нажатие) на все метки (или на что то другое).

procedure TForm1.GL_labelContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  with (sender as tlabel) do Color:=ColorBox1.Selected;
end;

и присвоить это событие на все метки. тогда по правому клику будет меняться цвет в выбранной метке.

[Алексей_2012]

А если надо не только на метки? А как раз они то нужны меньше всего

Ты можешь объявить переменку типа TWinControl?
Потом ты можешь ей присвоить Sender в обработчиках кликов по контролам?

переменную могу объявить, а дальше не смогу

[alextrof94]

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