鼠标移入移出事件怎么写？

Question

同意taxi(游少爷),
继承这个控件,然后在控件中映射这两个消息就够了.

Answer 1

是啊
我用这两个消息实现了类似于qq的窗体，但是MouseLeave好象反映迟钝！

Answer 2

窗体上有个clock控件，然后又有一排6个按钮（启动时按钮隐藏）。
要求鼠标移入clock中，显示这6个按钮。并且鼠标移出任何一个控件，就隐藏这6个按钮。
基本功能我已经解决了，但是在各个按钮之间移动鼠标时，窗体会不断刷新，
从而闪烁的厉害，请问我的写法是不是有误？
大家都是怎么写的？（6个按钮是竖排的）我是这样写的：
procedure TfrmMain.btnMainMouseEnter(Sender: TObject);
begin
　Height:= Clock.Height+btnHeight*btnCount;
end;procedure TfrmMain.btnMainMouseExit(Sender: TObject);
begin
  Height := Clock.Height;
end;procedure TfrmMain.ClockMouseEnter(var Message: TMessage);
begin
　Height := Clock.Height+btnHeightbtnCount;
end;procedure TfrmMain.ClockMouseLeave(var Message: TMessage);
begin
  Height := Clock.Height;
end;

Answer 3

CM_MouseEnter;
CM_MouseLeave; 
是delphi自定义的消息！

Answer 4

这个啊。给你的思路吧。有个MOUSEOVER事件，它是当鼠标越过IMAGE触发的。当然想想

Answer 5

就在mousemove上写,进入这个button必然立刻其他button
或者你接管button的wndproc方法,自己处理那两个消息.