WindowState ruft OnShow Ereignis auf?

[AlexII]

Hallo,

ich habe folgenden Code, und dieser ruft automatisch das OnShow Ereignis des Forms auf. Ist das normal so? Für mich ist das aber voll ungünstig, kann ich das irgendwie umgehen, oder ist das eine schlechte Idee? Lässt sich vielleicht das Form anders kleiner machen, nicht so wie bei mir?

Delphi-Quellcode:

procedure TMainForm.MinimizeMIClick(Sender: TObject);
begin
  // MainForm minimieren
  if MainForm.WindowState = wsMaximized then
  begin
    MainForm.BorderStyle := bsSizeable;
    MainForm.WindowState := wsNormal;
    MainForm.Width := 800;
    MainForm.Height := 600;
  end else
  begin
    MainForm.BorderStyle := bsNone;
    MainForm.WindowState := wsMaximized;
  end;
end;

Danke!