Moin Wadim,
da sehe ich zwei Möglichkeiten:
Delphi-Quellcode:
var
ptWork : TPoint;
begin
// So wie's auch geht:
Edit1.Text := IntToStr(Mouse.CursorPos.x) + 'x' + IntToStr(Mouse.CursorPos.y);
// So wie Luckie es meinte
GetCursorPos(ptWork);
Edit2.Text := IntToStr(ptWork.x) + 'x' + IntToStr(ptWork.y);
end;
Das Ergebnis ist, zwangsläufig, das gleiche.
Was hast Du denn genau vor.
Das über einen ButtonClick zu machen erscheint mir nicht wirklich sinnvoll, da dadurch die möglichen Koordinaten ja doch recht eingeschränkt sind.