急用mousemove问题，在线

Question

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

Answer 1

你还是在MouseEntry中创建窗体, 
MouseLeave中释放就行了..

Answer 2

在Form中再用一个全局标志来标志鼠标是否经过Form就行了

Answer 3

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;

Answer 4

动态创建的newfrm，应该是newfrm的mouseen吧