Musse-trykker-koordinat-program

1)
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Edit1.Text := 'X: ' + IntToStr(X); // Formens kooridinater
Edit2.Text := 'Y: ' + IntToStr(Y); // Formens kooridinater
Edit3.Text := 'X: ' + IntToStr(Mouse.CursorPos.X); // Skærmens koordinater
Edit4.Text := 'Y: ' + IntToStr(Mouse.CursorPos.Y); // Skærmens koordinater
end;

2)
procedure TForm1.Button1Click(Sender: TObject);
begin
SetCursorPos(290,180); // Skærmens koordinater
mouse_event(mouseeventf_leftdown,0,0,0,0); // kan ændres til right/middle
mouse_event(mouseeventf_leftup,0,0,0,0); // kan ændres til right/middle
end;

Mvh Dennis L :)

var cursorPosX,cursorPosY:integer;
begin
//aflæs kooridinater
cursorposX := Mouse.CursorPos.x;
cursorposY := Mouse.CursorPos.Y;


SetCursorPos(100,100);

//klik med musen
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;

okay.

Det jeg mente med koordinater var også at "fange" dem uden for formen. Hvis jeg minimere programmet og bevæger musen lidt rundt og pludselig klikker hvordan fanger jeg så det koordinat?

det gør du med GetCursorPos(Point : TPoint)

function GetCursorPosition : String;
var
  P : TPoint;
begin
  GetCursorPos(P);
  Result := 'X: ' + P.X + ' Y: ' + P.Y;
end;

Ups havde ikke set du ville have koordinater for klik over hele skærmen...
Hvis du skal have tastetryk eller museklik uden for dit program og uden at vide hvad for et vindue du vil klikke i, skal du lave en global hook som opfanger alle tryk i windows. En global hook er en .dll fil, da du ikke kan opfange med dit eget program. Ellers hvis du ved hvilket vindue du vil klikke i skal du lave en callback procedure til det vindue med WM_LBUTTONDOWN og WM_RBUTTONDOWN.

Takker - lav svar nlf så kan i alle dele de utrolig mange point heh.