mauskoordinaten unabhaenging von form ermitteln!

[richard_boderich]

tachchen,

hab ein großes problem bei dem ihr mir vielleicht helfen koennt.
ich muss in einem onmousedownevent eines images die mauskoordinaten ermitteln.
dat funzt auch soweit, aber

ich brauch die absoluten koordinaten des maus zeigers auf den desktop und nicht auf dem form

mit dem standard ereignis ermittelt er aber nur die koordinaten relativ zu

form1.left und form1.top.

ne moeglichkeit waeren eventuell WMI, aber da hab ich noch keine erfahrung mit
waere nett wenn jemand nen ansatz heatte


euer richard

[jfheins]

Lösung wäre ein Maushook, aber da hab' ich meine Ahnung ...

[Tubos]

Cursor Position

--> GetCursorPos

[Aenogym]

hi,

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var clientpoint, screenpoint: TPoint;
begin
  clientpoint.x := x;
  clientpoint.y := y;

  screenpoint := clienttoscreen(clientpoint);
  beep;
end;

Aenogym

[richard_boderich]

sorry agonym,

deine methode klappt nicht, ich denke du hast mich falsch verstanden.

ich habe ein kleinen form 64x 64 pixel groß, dort ist eine image drauf.
wenn ich die rechte maustaste druecke und die maus bewege, soll sich das
form genau dahin mit wandern wo der mauszeiger steht

dazu brauch ich absolute screencoordinaten

dein code ermittelt mir auch nur die daten des forms (clientbereich),
das ist nicht das was ich will

[Sprint]

Zitat von richard_boderich:

ich habe ein kleinen form 64x 64 pixel groß, dort ist eine image drauf.
wenn ich die rechte maustaste druecke und die maus bewege, soll sich das
form genau dahin mit wandern wo der mauszeiger steht

Zitat von jfheins:

Lösung wäre ein Maushook, aber da hab' ich meine Ahnung ...

[Aenogym]

achso, sag das doch gleich

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Perform(wm_syscommand,$f012, 0);
end;

dadurch verschiebt sich das form, als wenn du es durch verschieben per titelleiste machst.

Aenogym

[richard_boderich]

@Aenogym

ja genau so will ich das haben, aber dein code funktioniert nich, oder ich mach irgend einen fehler.
habs jetz im onmousemove und onmousedown probiert, da passiert gar nichts

[Aenogym]

http://dsdt.info/tipps/?id=425

von dort hab ich das und es klappt bei mir problemlos

Aenogym

[richard_boderich]

@Aenogym

hab den fehler gefunden, dein code lauft.

ich hatte bloß

Delphi-Quellcode:

if ssright in shift then      // fehler abfrage funzt nur bei ssleft
begin
  ReleaseCapture;
  Perform(wm_syscommand,$f012, 0);
end;

dat hatt nich geklappt. im ssleft event klappt allet, many thx du