Einzelnen Beitrag anzeigen

Benutzerbild von Jan
Jan

Registriert seit: 24. Sep 2002
Ort: Magdeburg
491 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: Relative Positionierung der Maus

  Alt 3. Dez 2005, 13:40
Hallo,
hab nochmal intensiv und mit abgewandelten Suchbegriffen und ich weniger eindeutig benannten threads hier gesucht und bin auf die function clienttoscreen gestoßen.
Mit folgendem Code geht das ganze jetzt:

Delphi-Quellcode:
    muh.x:=Round(ClientWidth/2);
    muh.Y:=Round(ClientHeight/2);
    muh:=form1.ClientToScreen(muh);
    maus.CursorPos:=muh;
Jan
Wenn die Sonne der Kultur tief steht, werfen auch kleine Gestalten lange Schatten.
  Mit Zitat antworten Zitat