OnMouseMove是当鼠标移动到控件时会触发一个事件。如何让这个事件延迟2秒钟后触发？

Question

比如：
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
showmessage('asdf');
end;
能不能在鼠标移动到TForm1时后两秒钟后触发该事件，而不是移动到TForm1时立即触发。

Answer 1

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  sleep(2000);
showmessage('asdf');
end;
能不能在鼠标移动到TForm1时后两秒钟后触发该事件，而不是移动到TForm1时立即触发。

Answer 2

sleep(时间)1000为一秒然后再写要做的处理

Answer 3

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  sleep(2000);
showmessage('asdf');
end;

Answer 4

sleep不要太长，Sleep中程序是没有相应的