...get and set mouse position?

Author: Rainer K├╝mmerle
Homepage: http://www.thinklazy.de

Category: Forms

// Get mouse positon

procedure TForm1.Button1Click(Sender: TObject);
var
  
MausPos: TPoint;
begin
  
GetCursorPos(MausPos);
  label1.Caption := IntToStr(MausPos.x);
  label2.Caption := IntToStr(MausPos.y);
end;

// Set mouse position to (x,y)

procedure TForm1.Button2Click(Sender: TObject);
begin
  
SetCursorPos(600, 600);
end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base