1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TfrmOrderView.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin

  if(bcanResize) then begin // stellt sicher, dass ich nicht in der OnCreate Phase bin
    if(not Controller.GetScenarioActive()) then begin // Ob ich Fenstergröße beeinflussen darf.
      Resize := False;
   end;
  end;
end;                    

1:
2:
3:
4:
5:

procedure TfrmOrderView.FormCreate(Sender: TObject);
begin
  bcanResize := False;
  WindowState := wsMinimized;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TfrmOrderView.WMSysCommand(var Msg: tWMSysCommand);
begin
  if(not Controller.GetScenarioActive()) then begin
     if(((Msg.CmdType and $FFF0) = SC_RESTORE) or
        ((Msg.CmdType and $FFF0) = SC_MAXIMIZE)) then begin
        ; // nothing
      end else
       DefaultHandler(Msg);
    end;
end;