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:

markieren

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:

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.

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

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

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

Packs mal ins OncanRisize.

Im Image-Ereignis MouseUp:

markieren

Delphi-Quellcode:

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

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

markieren

Delphi-Quellcode:

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

Zitat von Blackheart:

Packs mal ins OncanRisize.

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

Bau mal ein Form.Update; ein

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