delphi - 强制应用程序在 OnCreate 过程中显示任务栏图标

Question

我使用delphi XE2。在我的主窗体 OnCreate 过程中，我运行一些重要的元素，例如登录过程等。我的问题是，当我显示登录表单(由 OnCreate 过程调用)时，我的应用程序在任务栏上不可见 - 当主表单可见时它变得可见。问题是，当用户通过另一个应用程序覆盖我的登录表单时，任务栏上没有图标，他可能不知道我的应用程序已经运行并尝试再次启动它。他必须使用 ctrl+tab 才能获取我的应用程序登录表单。

现在问题...当 OnCreate 过程未完成时，如何强制应用程序/操作系统在任务栏上显示应用程序图标？

问候马里奥

Answer 1

您可以覆盖登录表单的 CreateParams 以包含 WS_EX_APPWINDOW前风格。

type
  TLoginForm = class(TForm)
    ..

  protected
    procedure CreateParams(var Params: TCreateParams); override;
    ...

  end;

procedure TLoginForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;