我
我爱PASCAL
Unregistered / Unconfirmed
GUEST, unregistred user!
[
]
]
L
lihoulong
Unregistered / Unconfirmed
GUEST, unregistred user!
//定义说明
procedure mouseenter(var msg:tmessage);message cm_mouseenter;
procedure mouseleave(var msg:tmessage);message cm_mouseleave;
//实现
procedure TForm1.mouseenter(var msg: tmessage);
begin
end;
procedure TForm1.mouseleave(var msg: tmessage);
begin
end;
procedure mouseenter(var msg:tmessage);message cm_mouseenter;
procedure mouseleave(var msg:tmessage);message cm_mouseleave;
//实现
procedure TForm1.mouseenter(var msg: tmessage);
begin
end;
procedure TForm1.mouseleave(var msg: tmessage);
begin
end;
我
我爱PASCAL
Unregistered / Unconfirmed
GUEST, unregistred user!
试了下你说的方法，当mouseenter时能触发，mouseleave不能触发。不知何故
请明示。
请明示。
Q
qq9518
Unregistered / Unconfirmed
GUEST, unregistred user!
不是有FORM的相应事件么？
Z
zywcd
Unregistered / Unconfirmed
GUEST, unregistred user!
你使用form的这个事件？
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
end;
判断鼠标是否超出窗口的范围就可以。
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
end;
判断鼠标是否超出窗口的范围就可以。
蓝
蓝叶菱
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure mouseleave(var msg:tmessage);message cm_mouseleave;
仅适合窗口内部的东西，
建议使用onmousemove进行坐标判断。
仅适合窗口内部的东西，
建议使用onmousemove进行坐标判断。
我
我爱PASCAL
Unregistered / Unconfirmed
GUEST, unregistred user!
[]
]