读书人

急用mousemove有关问题在线

发布时间: 2012-04-12 15:46:35 作者: rapoo

急用mousemove问题,在线
button的mousemove事件弹出一个新form,当只有鼠标经过过form后,鼠标在移开button时,form才自动关闭,意思就是新form的mousemove事件被触发过,这时鼠标再离开button时才能关闭,鼠标没move到form过,又离开button,form不关闭

[解决办法]
你还是在MouseEntry中创建窗体,
MouseLeave中释放就行了..

[解决办法]
procedure TForm1.TestMouseEnter(Sender: TObject);
var pos:TPoint;
begin
GetCursorPos(pos);
form2.Top:= pos.Y+20;
form2.Left:= pos.X+20;
form2.show();
end;

procedure TForm1.TestMouseLeave(Sender: TObject);
begin
form2.close();
end;

读书人网 >.NET

热点推荐