Выбор цвета в TsColorBox

[artemavd]

Добрый вечер! Как в этом компоненте сделать так, чтобы когда открылся выпадающий список с цветами, при наведении курсором на какой-то цвет, пока список открыт, в указанном компоненте, например, DBGrid, изменялся цвет?
Присвоение цвета делаю так (работает):

 sLabel7.Caption:=sColorBox1.SelectedItem.Caption;
 DBGridEh1.Color:=StringToColor(sLabel7.Caption);

[Аватар]

Можно попробовать ловить перемещение курсора мыши или нарисовать свой компонент для выбора цвета и заложить в него такую возможность

[dmitriegorovih]

Доброго времени суток попробуйте так

procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.Color:= sColorBox1.Colors[sColorBox1.ItemIndex];
end;

таймер в 1 миллисекунду.

[Пепел Феникса]

дык при наведении, а не при выборе(для выбора есть соответствующее событие итак)

[Noor]

у меня так отлично работает

procedure TForm1.FormActivate(Sender: TObject);
begin
Timer1.Enabled := False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//DBGrid1.Columns[0].Color := ColorBox1.Colors[ColorBox1.ItemIndex];//для отдельного столбика
DBGrid1.Color := ColorBox1.Colors[ColorBox1.ItemIndex];//для всего компонента
end;

procedure TForm1.ColorBox1Enter(Sender: TObject);
begin
Timer1.Interval := 50;
Timer1.Enabled := True;
end;

procedure TForm1.ColorBox1Exit(Sender: TObject);
begin
Timer1.Enabled := False;
end;

end;

[artemavd]

Всем спасибо большое за ответы. Последний пост решил проблему