Vise markørens koordinater, på hele skræmen.

Hvordan får jeg delphi til at gøre det?

Jeg kan få den til at måle koordinaterne inde i selve formen, men ikke uden for...


På forhånd tak...

[Hvis det er sandt, at genier hersker kaos, må jeg være ufattelig klog ]

Kode 

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;

Hvorfor denne omvej? Hvorfor ikke bruge screentoclient samt clienttoscreen? og så give den x, y fra en mousedown event, det ville være noget mere elegant...

(¯`·._.·[Brian Hvarregaard]·._.·´¯)