Thema: Delphi cursor position anzeigen

Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#14

Re: cursor position anzeigen

  Alt 27. Sep 2003, 18:18
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.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat