Как программно изменить цвет любого компонента?

[artemavd]

Доброе утро! Мне нужно программно изменить цвет активного компонента, т.е. чтобы когда выбираешь какой-то компонент, то можно менять его цвет, например. Раз уж нельзя просто написать

 Form1.' + <обычное строковое имя компонента> + .Color:=clGreen;

то пробовал через

procedure TForm1.sColorBox1Change(Sender: TObject);
begin
 TWinControl(ActiveControl).Brush.Color:=Form1.sColorBox1.Color;
end;

но цвет компонента не меняется.

[EUGY]

procedure TForm1.sColorBox1Change(Sender: TObject);
begin
 TWinControl(ActiveControl).Brush.Color:=Form1.sColorBox1.Color;
 //TWinControl(ActiveControl).Repaint();
end;

Наверное потому, что активным контролом при этом является сам sColorBox1 ?

[artemavd]

Ну да, скорее всего. А как можно тогда получить имя предыдущего выбранного компонента?

[Аватар]

в OnEnter компонента менять цвет, в OnExit восстанавливать

[artemavd]

Аватар, не, это-то понятно что так можно сделать. Мне надо чтобы можно было менять цвет у любого выбранного компонента. Пользователь может выбрать совершенно любой компонент и только один.

[FaTaL]

Ну используй тогда глобальную переменную, в которую пиши что за компонент был выбран.

[artemavd]

И какого типа должна быть эта переменная?

[=master=]

Что значит выбрать?

ActiveControl сам по себе уже TWinControl.

[artemavd]

Добрый день!
Поднимаю тему, ибо оказанная помощь не помогла мне решить мой вопрос.
У меня цвет компонента должен измениться при нажатии на кнопку через диалог., т.е.
что-то типа:

 if ColorDialog.Execute then
 begin
  //меняем цвет компонента, имя которого мне известно (хранится в Label1.Caption),    
     класс компонента нужного всегда один - известный.
 end;

Нужна помощь?

[Аватар]

procedure TForm1.Button1Click(Sender: TObject);
var xComponent: TComponent;
begin
  if ColorDialog1.Execute then begin
    xComponent:=FindComponent(Label1.Caption);
    if xComponent is TWinControl then begin
      TWinControl(xComponent).Brush.Color:=ColorDialog1.Color;
      TWinControl(xComponent).Repaint;
    end;
  end;
end;