Von RWarnecke wurde in meinem aktuellen Projekt "rzDelphiGuide" ein Fehler entdeckt, der von der Prozedur
FitFormFullInView() produziert wird. Für alle Interessierten hier die kleine aber wichtige Korrektur:
Position/Größe dürfen nicht korrigiert werden, wenn das Formular maximiert dargestellt wird.
Der Anfang der Prozedur ist daher wie folgt zu ändern:
Delphi-Quellcode:
procedure FitFormFullInView(AForm: TCustomForm);
var
MonNo,
MonL, MonW,
MonT, MonH: Integer;
begin
if (AForm.WindowState<>wsMaximized) and
not (FormFullInView(AForm)) then
begin
..
..