Mausposition IN der Form

[sacred]

Hi @ all,

wollte nur mal kurz nen command für die Cursorposition IN DER AKTUELLEN form wissen.
Habe natürlich schon ausgiebigst in der DP gesucht, aber nichts gefunden, lediglich wie ich die
mauspos. vom gesamten bildschirm, also nich nur vom aktuellen prog. bekomme, aber das hilft mir leider nicht.

Ein großes Dankeschön im vorraus für tipps!

[Matze]

Du hast die Position bzgl. des ganzen Bildschirmes und du hast die Position des Formulars, wo liegt das Problem?

[Bernhard Geyer]

Schau dir die Methoden ScreenToClient und ClientToScreen an.
Die Fensterposition reicht alleine nicht aus denn je nach Fensterstiel muß noch Rahmen und Titelzeile berücksichtigt werden.

[sacred]

@ matze:

sry, für die etwas unverständliche ausdrucksweise, ich meine, wenn ich z.b. ein image habe, das ganz links oben im formular ist,
hat es die top und left werte 0,0 .
Wenn ich den Mauszeiger ganz nach oben links von der Form bewege, dann ist dessen position aber nicht 0,0 , da die Mauszeigerpos. sich auf den gesamten Bildschirm bezieht. Also könnte ich z.b. NICHT sagen wenn ich ein image1 an der Stelle haben möchte, wo cursor ist:

Delphi-Quellcode:

var
  pos: TPoint;
begin
  GetCursorPos(pos);
  image1.left:=pos.x;
end;

[Bernhard Geyer]

Wohl nicht die Hilfe zu ScreenToClient durchgelesen.

Delphi-Quellcode:

pos := self.ScreenToClient(Mouse.CurserPos);
image1.left := pos.x;

[sacred]

oh, wohl überscrollt

DANKE, eine große hilfe. jetzt funzts!