急用mousemove有关问题，在线

急用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;