Fensterposition anzeigen?

[Blackheart]

Also bei Mir funzt es hab mal die Exe angehangen.

[mlspider]

Erst mal Danke für Deine Mühen, nur leider ändert sich auch nichts in Deinem Label. Du könntest ja mal das uncompilierte Beispiel posten. Dann wäre es vielleicht eher nachvollziehbarer, wie Du es realisierst.

Danke.

[Blackheart]

Dann weiss Ich auch nicht, bei mir funktioniert das tadellos und auch mit den Richtigen Koordinaten.
Wunder

[mlspider]

Poste doch bitte mal das Nicht-Compilierte Projekt. Ich möchte mir mal den Trick von Dir ablauschen.

[Blackheart]

Vieleicht hab Ich auch was missverstanden, beim Verschieben der Form sollen die Top Koordinaten der Form im Label angezeigt werden.

[mlspider]

Du hast es völlig richtig verstanden. Jetzt läuft es und kann es nun auch vielmehr für den Left-Wert festlegen, in eine INI speichern. Beim nächsten Start erscheint das Fenster an der verschobenen Position.

Danke an alle. War ja wieder eine schwere Geburt und doch so simpel die Lösung.

[Sir Rufo]

Zitat von Hawkeye219:

Hallo,

mit ReleaseCapture beendest du die Verarbeitung der Mausnachrichten bis zum nächsten Capture, das MouseUp-Ereignis dürfte also nicht ausgelöst werden. Du könntest aber die Nachricht WM_WINDOWPOSCHANGING im Formular abfangen:

Delphi-Quellcode:

type
  TForm1 = class (TForm)
  private
    procedure WMWindowPosChanging (var Message: TWMWindowPosChanging); 
      message WM_WINDOWPOSCHANGING;
  end;

procedure TForm1.WMWindowPosChanging (var Message: TWMWindowPosChanging);
begin
  inherited;
  Label1.Caption:=IntToStr(Top);
end;

Gruß Hawkeye

Also da würde ich ja eher die Nachricht WM_WINDOWPOSCHANGED benutzen, also wenn die Änderung abgeschlossen ist.
Dann ist Formular am Bestimmungsort angekommen und die Werte sind auch verfügbar.

cu

Oliver

[xZise]

Zitat von Hawkeye219:

Hallo,

mit ReleaseCapture beendest du die Verarbeitung der Mausnachrichten bis zum nächsten Capture, das MouseUp-Ereignis dürfte also nicht ausgelöst werden. Du könntest aber die Nachricht WM_WINDOWPOSCHANGING im Formular abfangen:

Delphi-Quellcode:

type
  TForm1 = class (TForm)
  private
    procedure WMWindowPosChanging (var Message: TWMWindowPosChanging); 
      message WM_WINDOWPOSCHANGING;
  end;

procedure TForm1.WMWindowPosChanging (var Message: TWMWindowPosChanging);
begin
  inherited;
  Label1.Caption:=IntToStr(Top);
end;

Gruß Hawkeye

Wegen eines anderen Threads wurde ich hierher gelinkt (thx Hawkeye)...
Dumm nur, dass ich ein Fehler bekomme:
"Nicht deklarierter Bezeichner 'TWMWindowPosChanging'"

[Matze]

Ich vermute mal, dass dies in der Unit "Messages" deklariert ist. Hast du diese eingebunden?

[xZise]

Ne ^^
Nun funzt es wunderbar! Danke Hawkeye und Matze!