| Simulating a mouse move in code. |
|
|
Some components do not respond to a cursor change until the user moves the mouse. Is there a way to simulate a mouse move? The following example shows how to "nudge the mouse" without user intervention. procedure TForm .Button Click(Sender: TObject); var pt : TPoint; begin Application.ProcessMessages; Screen.Cursor := CrHourglass; GetCursorPos(pt); SetCursorPos(pt.x + , pt.y + ); Application.ProcessMessages; SetCursorPos(pt.x - , pt.y - ); end; 7/ 6/98 4:3 :28 PM
|
| Hits/month | 2,500,000+ |
| Downloads (Since May 2000) |
7,393,709 |
| Total Files | 6,023 |
| Forum msgs | 7,670 |
| Articles/FAQs | 70+/900+ |
| Kylix |
| Tips n Tricks |
| FAQs |
| Knowledge Base |
| Bug Listings |
| Articles |
| Books |
| Newsgroups |
| Links |
| Submissions |
| Testimonials |
| Advertising |
| Contact Us |
| About Us |
Comments/Problems: Webmaster@delphi32.com
Copyright © 1998-2006, Delphi32.com. All rights reserved.
Terms of Use