将ComboBox1的Style设置成'csOwnerDrawFixed',然后加入下面程序,看看是不是这样:
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with TComboBox(Control) do
begin
if odFocused in State then
begin
Canvas.Brush.Color := clBlue;
Canvas.FillRect(Rect);
//你可以在这里画上选中的图像
Canvas.TextOut(Rect.Left, Rect.Top, '√' + Items[Index]);
end else
begin
Canvas.Brush.Color := clWhite;
Canvas.FillRect(Rect);
//你可以在这里画上没有选中的图像
Canvas.TextOut(Rect.Left, Rect.Top, '' + Items[Index]);
end;
end;
end;