delphi - 如何为TDBLookupListBox启用onDraw(ownerDraw)

Question

TDBLookupListBox（我正在使用Delphi Xe5）没有onDraw事件。我需要根据某些字段的值更改列表中显示的项目的文本颜色（或文本的背景颜色）。例如，如果显示要选择的员工列表，则以灰色或红色等显示满足特定条件的员工。

关于如何做到这一点的任何想法？

Answer 1

这是插入控件的理想用例。

参见：Delphi - Changing TComboBox's OnChange

这样的事情应该可以解决问题（伪代码，稍后会完善）。

type
  TDBLookupListbox = class(DBcntls.TDBLookupListbox)
  private
    FOnDraw: TDrawEvent;
  protected
    procedure Paint; override;
  public
    property OnDraw: TDrawEvent read FOnDraw write FOnDraw;
  end;

procedure TDbLookupListbox.Paint;
begin
  inherited;
  if Assigned(OnDraw) then FOnDraw(Self, Canvas);
end;