Fensterposition anzeigen?

[mlspider]

Mein Problem wird im nachhinein sich als ziehmlich simpel erweisen. Trotzdem funktionieren meine bis jetzt unternommenden Versuche nicht.

Ich habe ein Formular, was folgende Eigenschaften hat:

BorderStyle: None;
TransparentColor: True;

Auf dieser Form liegt eine Image-Kompe, dessen Picture die Form des Fensters bestimmt. Im MouseDown-Ereignis der Image-Kompo befindet sich folgender Code zum Positionswechsel des unsichtbaren Fensters:

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if ssLeft in Shift then begin
  ReleaseCapture;
  Self.Perform(WM_NCLBUTTONDOWN, HTCAPTION, varEmpty);
end;
end;

Soweit so gut.

Jetzt habe ich ein Label auf die Form gesetzt, was mir die aktuelle Position des Fensters anzeigen soll.

Im Image-Ereignis MouseUp habe ich folgenden Code festgelegt:

Delphi-Quellcode:

Label1.Caption:=IntToStr(Form1.Top);

Eigentlich müßte das Label jetzt die aktuelle Position des Fensters anzeigen. Leider Fehlanzeige.

Sinn und Zweck der Übung ist lediglich der, dass beim nächsten Start der Anwendung die gewählte Position automatisch festgelegt wird.

[mkinzler]

Zeigt es was Falsches an oder wird es nur nicht upgedatet?
Wo rufst du den Code auf?

[mlspider]

Es wir kein Fehler vom Compiler gefunden. Auch wird nich geupdatet.

[mkinzler]

Wo steht den der Code mit dem Label bzw wo wird er aufgerufen?

[Blackheart]

Packs mal ins OncanRisize.

[mlspider]

Im Image-Ereignis MouseUp:

Delphi-Quellcode:

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Label1.Caption:=IntToStr(Form1.Top);
end;

[Nils_13]

@mkinzler:
Wenn ich mich nicht vollkommen täusche, glaube ich, das im Post zu sehen:

Delphi-Quellcode:

Im Image-Ereignis MouseUp habe ich folgenden Code festgelegt: 
[...]

[mlspider]

Zitat:

Zitat von Blackheart

Packs mal ins OncanRisize.

Hat das nicht ws mit der Größenveränderung zu tun?

[mkinzler]

Bau mal ein

Delphi-Quellcode:

Form.Update;

ein

[mlspider]

Form.Update; Keine Änderung im Label. Leider.

[mkinzler]

Delphi-Quellcode:

Application.ProcessMessages;

[mlspider]

Keine Änderung im Label.

[mkinzler]

Pack es zum Test mal in einen anderen Event

[Blackheart]

Zitat:

Zitat von mlspider

Zitat:

Zitat von Blackheart

Packs mal ins OncanRisize.

Hat das nicht ws mit der Größenveränderung zu tun?

Schon Probiert ?

[mlspider]

Leichter gesagt als getan, da ich lediglich zur Laufzeit nur mein Image und mein Label sehe. An welches Event der beiden Kompos dachtes Du denn?

[mkinzler]

Z.B. .onClick

[mlspider]

@Blackheart, ebenfalls keine Änderung im Label.

[mlspider]

Auch das bringt leider keine Änderung. Anstandslos wird mir beim Starten der APP der Top-Wert des Form im Create-Event von Form1 angezeigt:

Delphi-Quellcode:

Label23.Caption:=IntToStr(Player.Top);

[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

[mlspider]

Es änder sich zwar der Wert im Label, allerdings vermute ich mal, dass der Left und der Top-Wert irgendwie gemischt wird.

[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 :roll:

[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:

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:

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!