Question

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

Answer 1

窗体上有个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 2

六个按钮排在窗体中，鼠标移入窗体时显示六个按钮，鼠标移出窗体时隐藏这六个按钮。显示和隐藏是通过改变窗体高度而得到。现在的问题是：显示了这六个按钮后，鼠标在各个按钮之间移动时，各按钮表面会不断闪烁。

Answer 3

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

Answer 4

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