Wäre es nicht irgendwie sinnvoller das über ein OnTimer Event abzufragen ? Weil beim OnClick Event eines Buttons der Mauszeiger ja zwangsläufig über dem Button liegt (es sei denn der Button hat den Focus und du betätigst Ihn über Enter), das schränkt die Position doch arg ein.
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := IntToStr(Mouse.CursorPos.X) + ',' + IntToStr(Mouse.CursorPos.X);
end;
Profi-Tipp !!!
Solltest du per Button jede Position der Maus ausgeben wollen kannst du das Button ja wie folgt dimensionieren:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Left := 0;
Form1.Width := Screen.Width;
Button1.Left := 0;
Button1.Width := Screen.Width;
Form1.Top := 0;
Form1.Height := Screen.Height;
Button1.Top := 0;
Button1.Height := Screen.Height;
end;
...und das Ergebniss der Mausposition weist du dem Button als "Caption" zu
