Category: ActiveX
Title: Extact the cursor position and how to set the cursorpos
Author: DAMIAN CIPOLAT
E-mail: Damian_Cipolat@hotmail.com
Date added: 02.06.2006
Hits: 3960


    //extract the cursor position.

procedure TForm1.Button1Click(Sender: TObject);
var
pt:tpoint;
begin
getcursorpos(pt);
showmessage('The cursor pos. is: x='+inttostr(pt.x)+' y='+inttostr(pt.y);
end;

//SET the cursor position.
// with this code you can move the windows mouse cursor with code to  x,y position.


procedure TForm1.Button1Click(Sender: TObject);
var
pt:tpoint;
begin
pt.x:=15;
pt.y:=98;
setcursorpos(pt.x,pt.y);
showmessage('The cursor pos. is: x='+inttostr(pt.x)+' y='+inttostr(pt.y);
end;

1. How to register a OCX File? (2974 Hits)

2. How to send an e-mail through Outlook? (2928 Hits)

3. How to OLE with the internet explorer? (3103 Hits)

4. How to check if Word, Excel, Access, Outlook, Powerpoint is running? (3862 Hits)

5. How to check if the recycle bin is empty? (1891 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.