Mouse-Koordinaten ... die 20154. :-(

[DieFliege]

Hallo zusammen,

allen ein schönes Osterfest!

Irgenwie sehe ich den Wald vor lauter Bäumen nicht.

Ich kann mir in einem Label oder Edit die aktuellen Mouse Positionsdaten anzeigen lassen, auch ausserhalb der Form, kein Problem.

Wie jedoch kann ich diese Daten mit einem Klick in einem Edit-Feld per Klick übernehmen? Sobald ich die Form selbst verlasse und irgendwo anders hin klicke verliere, passiert nix (klar verliere ja den Fokus). Wie kann ich dies dennoch realisieren?

Aktuell habe ich folgendes:
1x Timer
2x Label
2x Edit

Delphi-Quellcode:

procedure Tform1.Timer1Timer(Sender: TObject);
begin
  lbl_cursor_x.Caption := IntToStr(Mouse.CursorPos.X);
  lbl_cursor_y.Caption := IntToStr(Mouse.CursorPos.Y);
end;

In den beiden Label werden mir die Koordinaten angezeigt, auch ausserhalb der Form. In die beiden Edit sollen die Daten der Stelle rein, die ich mit der Maus anklicke.

Könnt ihr mir helfen?

LG DieFliege

[Luckie]

Ich kann dir sagen, warum außerhalb der Form nichts passiert. Weil der Klick eben außerhalb der Form passiert. Wahrscheinlich wirst du um einen Mouse-Hook nicht drumherum kommen.

[himitsu]

Zitat:

klar verliere ja den Fokus

Im OnDeactivate der Form, bzw. der Application drauf reagieren und dort die Position auslesen.

Will man nur 'ne Position wissen, ohne den Fokus zu verlieren:
OnMouseMove/OnMouseUp beim Click verwenden, also irdendwo rein klicken, von da praktisch was wie Drag&Drop zur neuen Position gehen und die Maus loslassen.

[DieFliege]

Hey Luckie,

das dachte ich mir auch

Zitat:

... (klar verliere ja den Fokus) ...

"Mouse-Hook" - da werde ich mal schauen.

LG Die Fliege

[Luckie]

Und dann kommt der Klick an? Ich bin mir da nicht so sicher.

[DieFliege]

Hi himitsu,

Zitat von himitsu:

Im OnDeactivate der Form, bzw. der Application drauf reagieren und dort die Position auslesen.

... perfekt, das könnte klappen - Vielen Dank!

LG DieFliege


gerade getestet - Funktioniert leider nicht

[Luckie]

Sag ich doch.

[himitsu]

Zitat von DieFliege:

gerade getestet - Funktioniert leider nicht

Drum auch das "bzw."

OnDeactivate der Form reagiert da bissl unorthodox.
Außerhalb der Form kann ja auch eine andere Form der eigenen Anwendung sein und OnDeactivate der Form reagiert nur auf den Wechsel der Forms innerhalb der Anwendung.

[DieFliege]

Hey himitsu,

Zitat von himitsu:

Will man nur 'ne Position wissen, ohne den Fokus zu verlieren:
OnMouseMove/OnMouseUp beim Click verwenden, also irdendwo rein klicken, von da praktisch was wie Drag&Drop zur neuen Position gehen und die Maus loslassen.

... das funktioniert! Werde nun mir noch mal "Mouse-Hook" ansehen - Vielen Dank!

LG DieFliege

[t.roller]

Auch wenn die Form nicht den Focus hat, funktioniert es:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var MausPos: TPoint;
begin
  if getAsyncKeystate(VK_LBUTTON)<>0 then  
  BEGIN
     GetCursorPos(MausPos);
     label1.Caption := IntToStr(MausPos.x);
     label2.Caption := IntToStr(MausPos.y);
  END;
end;