Fensterposition anzeigen?

[mkinzler]

Application.ProcessMessages;

[mlspider]

Keine Änderung im Label.

[mkinzler]

Pack es zum Test mal in einen anderen Event

[Blackheart]

Zitat von mlspider:

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:

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.