size : 136 uploaded_on : Mon Mar 15 00:00:00 1999 modified_on : Wed Dec 8 14:03:36 1999 title : Mouse cursor position org_filename : GetMousePos.txt author : Christo Crause authoremail : ccrause@ing.sun.ac.za description : How to get the current mouse cursor position keywords : tested : not tested yet submitted_by : The CKB Crew submitted_by_email : ckb@netalive.org uploaded_by : nobody modified_by : nobody owner : nobody lang : plain file-type : text/plain category : delphi-misc __END_OF_HEADER__ procedure GetMousePosition; var pt : TPoint; ypos, xpos : integer; begin GetCursorPos(pt); xpos := pt.x; ypos := pt.y; end;