Du hattest alCustom gesetzt und das verhintert jegliches Bewegen des Formulares
So wäre es besser:
Delphi-Quellcode:
begin
If (Message.CmdType = SC_MAXIMIZE) or (Message.CmdType = SC_MAXIMIZE + 2) then
if (SForm.Align = alTop) then
SForm.Align := alNone
else
SForm.Align := alTop
else
inherited;
end;
Das kann aber nicht funktionieren, da die alte Fenster Position bei alTop gemerkt und bei alNone wieder gesetzt werden müsste. Da umgeht man aber jegliche von Windows implementierte Funktionalität. Das Doppelfenster (beim Maximieren-Schalter) wird nie erscheinen, da das Fenster nicht maximiert ist. Schau die _ak noch mal genau an. Da wird auch gezeigt wie man den Offizellen Weg beschreitet, "mehr" haben die Win98-Programmierer auch nicht gemacht.