怎么使dbcombobox中的某一个item的font和color与其他item不同？

Question

procedure TForm1.DBComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with TDBComboBox(Control).Canvas do begin
    if { TODO : 条件 } then begin
      FillRect(Rect);
      Font.Color := clBlue;
      TextOut(Rect.Left, Rect.Top, TDBComboBox(Control).Field.DisplayText);
    end;
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  DBComboBox1.Style := csOwnerDrawFixed;
end;

Answer 1

//刚才调试了一下，有点问题，现在修改如下
procedure TForm1.DBComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with TDBComboBox(Control).Canvas do begin
    FillRect(Rect);
    if { TODO : 条件 } then
      Font.Color := clBlue;
    TextOut(Rect.Left, Rect.Top, TDBComboBox(Control).Items[Index]);
  end;
end;

Answer 2

用dbtree第三方控件，功能强大。