Проблемы с ComboBox

[bugemister]

У меня возникла проблема уже часа 3 сижу не знаю как зделать. Что б c помощью ComboBox можно было менять цвет фона в Shape?

[SERG1980]

Вообще для таких целей есть компонент ColorBox
а так

Case ComboBox1.ItemIndex of
 0: Shape1.Brush.Color:=clRed;
 1: Shape1.Brush.Color:=clLime;
 2: Shape1.Brush.Color:=clBlue;
//и т.д
end;

[bugemister]

что то не выходит на форме 3 объекта Button1, ComboBox,Shape, код вписывать в ComboBox? а в Шапе надо что небудь ?:

[wm_leviathan]

а что непонятного то? SERG1980 по моему все четко написал.
на форме токо достаточно 2 объекта shape и ComboBox. ComboBox.items заполнил red,green,blueи обработчик события для ComboBox:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Case ComboBox1.ItemIndex of
 0: Shape1.Brush.Color:=clRed;
 1: Shape1.Brush.Color:=clLime;
 2: Shape1.Brush.Color:=clBlue;

end;
end;

[vovk]

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

а что непонятного то? SERG1980 по моему все четко написал.
на форме токо достаточно 2 объекта shape и ComboBox. ComboBox.items заполнил red,green,blueи обработчик события для ComboBox:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Case ComboBox1.ItemIndex of
 0: Shape1.Brush.Color:=clRed;
 1: Shape1.Brush.Color:=clLime;
 2: Shape1.Brush.Color:=clBlue;

end;
end;

только мне кажется лучше onSelect а не onchange.