delphi – 在运行时切换Application.Mainform并调用MainformOnTa

基本上,Application.MainForm是一个只读属性,一旦通过Application.CreateForm创建第一个表单,就无法在运行时更改：

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

上面的例子将Form1作为应用程序的mainform.它将显示在Windows 7任务栏的缩略图预览中.

在运行时将Application.MainFormOnTaskBar设置为true允许我们享受Windows aero主题功能.

我需要在运行时切换应用程序的mainform.例如,将Form2设置为主窗体.我使用以下代码使其工作：

procedure SetAsMainForm(aForm:TForm);
var
  P:Pointer;
begin
  Application.MainFormOnTaskBar := False;
  try
    P := @Application.Mainform;
    Pointer(P^) := aForm;
    aForm.Show;
  finally
    Application.MainFormOnTaskBar := True;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetAsMainForm(Form2);
end;

执行Button1.Click将使Form2成为主窗体并更新Windows的任务栏缩略图预览.但是,任务栏可能会闪烁切换.

我的问题是：

>有没有办法消除这种闪烁？
>设置Application.MainformOnTaskBar：= False并在运行时再次将其设置为True是否安全？