Zitat von
hoika:
Form-Vererbung findest im Handbuch bzw. in der Hilfe-Datei.
Danke. Das werde ich mir dann mal bei Gelegenheit reinziehen.
Zitat von
hoika:
Klappt bei mir mit einer Ausnahme,
Maximized wird falsch geladen.
Das musst du selber abfangen.
Delphi-Quellcode:
ReadBinaryData(Wnd.Name, Pos, SizeOf(TPos));
CloseKey;
Wnd.WindowState:= Pos.WState;
if Wnd.WindowState<>wsMaximized then
begin
Wnd.Left:= Pos.Left;
Wnd.Top:= Pos.Top;
Wnd.Width:= Pos.Width;
Wnd.Height:= Pos.Height;
end;
Das will ich so aber nicht.
Den Umweg über
TWindowPlacement bin ich doch extra gegangen, damit ich auch bei einem maximierten Fenster die Abmessungen bekomme, die es im normalen Zustand (=wsNormal) hat.
Wenn ich jetzt die Werte zurück auf das Fenster übertrage, soll es ja auch maximiert sein. Aber versuche mal, mit Deinem Code ein so maximiertes Fenster zu minimieren. Das wird ohne das Zuweisen der Werte für Left, Top, ... nicht klappen. Bei mir kommen dann so Sachen wie -4 bei Top und Left heraus. Ein Klick auf den Minimieren-Button quittiert das System dann mit einem einfachen statt doppelten Rahmen aber das Fenster bleibt dann riesig.
Bei mir funktioniert die 2. Variante des Codes jetzt komischer Weise...
Gruß, Alex