形式没有正确地减少

Question

  

可能重复：
  How to minimize a window to the taskbar? (i.e. not iconify)

我希望在显示我的应用中的主要表单之前显示一些表单，我这样做：

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  with TForm2.Create(Application) do
    try
      ShowModal;
    finally
      Free;
    end;

  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

它工作正常但是当我最小化第一个表单（TForm2）时它会做这样的事情（不是最小化到任务栏）：

怎么了？

Answer 1

在您先释放之前尝试Hide。我不知道，但如果您的第一个表单是身份验证表单，您也可以使用ModalResult来确保用户的响应正常。

希望这有帮助。