WhiteUnicorn

	#WhiteUnicorn/ StartPage/ Documentation/DelphiFAQ >

Frequently Asked Questions

Simulating a mouse move in code.

Question:

Some components do not respond to a cursor change until the user moves the mouse. Is there a way to simulate a mouse move?

Answer:

The following example shows how to "nudge the mouse" 

without user intervention.



procedure TForm1.Button1Click(Sender: TObject);

var

  pt : TPoint;

begin

   Application.ProcessMessages;

   Screen.Cursor := CrHourglass;

   GetCursorPos(pt);

   SetCursorPos(pt.x + 1, pt.y + 1);

   Application.ProcessMessages;

   SetCursorPos(pt.x - 1, pt.y - 1);

end;

	#WhiteUnicorn/ StartPage/ Documentation/DelphiFAQ >

	Anastasija aka WhiteUnicorn	LiveJournal PhotoFile