怎么让combobox中下拉列中项为颜色？

Question

在combobox中选择颜色，memo中的颜色为选择的combobox中选择的颜色。

Answer 1

是在ColorBox吧，
procedure TForm1.ColorBox1Change(Sender: TObject);
begin
  Memo1.Color:=ColorBox1.Selected;
end;

Answer 2

用在ColorBox吧，
procedure TForm1.ColorBox1Change(Sender: TObject);
begin
  Memo1.Color:=ColorBox1.Selected;
end;

Answer 3

procedure TForm1.ComboBoxDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
  var
    TempColor    :TColor;//自画颜色
    TempBrushColor:TColor;//临时颜色
  begin
    with (Control as TComboBox) do
//在Combo的Canvas上自画
    begin
    TempBrushColor:=Canvas.Brush.Color;
//保存原来的的颜色
    Canvas.FillRect(Rect);
    case Index of//根据Index的不同，定义不同自画的颜色
0://黑色
TempColor:=clBlack;
1://蓝色
TempColor:=clBlue;
2://蓝绿
TempColor:=clAqua;
3://鲜绿
TempColor:=clLime;
4://红色
TempColor:=clRed;
5://黄色
TempColor:=clyellow;
//可以在此加入对其它颜色的响应
end;
Canvas.Brush.Color:=TempColor;
//自画颜色矩形
Canvas.Rectangle(Rect.Left+4,Rect.Top+1,(Rect.Right+Rect.Left)div 3,Rect.Bottom-1);
Canvas.Brush.Color:=TempBrushColor;
//显示与颜色对应的字符串
Canvas.TextOut((Rect.Left+Rect.Right)div 2,Rect.Top+1,Items[Index]);
end;
end;