初学DELPHI,如何触发鼠标事件

Question

比如我要实现这样的效果,就是有一副图片(IMAGE)那么当我把鼠标移动上去时触发一个动作(变成图片2),然后我把鼠标移开时又触发另一个动作(变成图片1),请副示范愿原吗谢谢

Answer 1

用Image的OnMouseMove事件和Form的OnMouseMove事件联系起来作就可以了

Answer 2

这个不叫处罚鼠标事件，叫响应鼠标事件。
点中IMAGE左侧的属性窗口有个event，点一下然后双击mousemove，如果有鼠标移动到它上面这个程序就会被执行，剩下的就是逻辑怎么实现了，应该没问题了吧。顺便说一句触发鼠标事件可以用 mouse_event函数，希望我的拼写没有记错：）

Answer 3

用image控件，事件处理中就，onmousemove事件就是了

Answer 4

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  showmessage('test');
end;

Answer 5

这样不好吧
如果我鼠标一直在image上面移动
岂不是一直都在执行这个事件？应该是自己截获onmoueenter和onmouseleft消息