请教：当鼠标接触到DBLookupComboBox1时变为红色，离开时变为黑色。

Question

请给源码，谢谢！！！

Answer 1

分别在DBLookupComboBox的OnEnter事件和OnExit事件中添加改变颜色的代码就OK。当然，这样做还有附加结果：用Tab键改变焦点到该控件或离开时，颜色也会变。至于源代码，俺看就不必了。

Answer 2

写代码？我不喜欢，呵呵。
响应OnmouseEnter事件和OnMouseLeave事件。
不过，实际上DBLookUpComboBox并没有提供这两个事件，呵呵，怎么办呢？重载DBLookUpComboBox元件，如下代码：  TMyDBLookUpComboBox = class(TDBLookUpComboBox)
  private
  public
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  end;implementationprocedure TMyDBLookUpComboBox.CMMouseEnter(var Message: TMessage);
begin
  inherited;
  Font.Color:=clRed;
  Invalidate;
end;procedure TMyDBLookUpComboBox.CMMouseLeave(var Message: TMessage);
begin
  inherited;
  Font.Color:=clBlack;
  Invalidate;
end;基本的原理是这样，我不清楚你是要让鼠标变成红色，还是要让整个ComboBox的文字变成红色？

Answer 3

补充一下，如果你要让整个ComboBox的背景变成红色用如下代码：
Brush.Color:=clRed;
Invalidate;//用RePaint或者ReFresh也可以，稍微有一点差异。