如何实现onMouseEnter响应？

Question

用消息映射啊
THImage = class(TGraphicControl)
  private
  procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
...procedure THImage.CMMouseEnter(var Message: TMessage);
begin
  inherited;
  dosomethingyourself;
  ...

Answer 1

可以将要聚焦的控件MouseMove事件都调用此
procedure TForm1.Edit2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  TWinControl(Sender).SetFocus();
end;

Answer 2

CM_MOUSEENTER和CM_MOUSELEAVE不是Windows标准消息，所以要从某个基类继承自己写一个类，或修改你需要使用的控件的WindowProc方法