如何防止从主窗体显示和/或关闭辅助窗体时焦点丢失?

我会在其中一个表单关闭之前,通过api调用手动激活“拥有”窗口:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  SetForegroundWindow(GetWindowLong(Handle, GWL_HWNDPARENT));
end;

这不会是操作系统的问题(即没有闪烁的任务栏按钮),因为我们的应用程序已经在前台。

如果 MainFormOnTaskBar 如果设置为,则拥有的窗口将是我们的主窗体,如果不是,则它将是隐藏的应用程序窗口。无论哪种情况,应用程序都将保持在前台。

这个 SetForegroundWindow MainFormOnTaskBar公司 是真的,从那时起,主窗体将不会被拥有,但我不会太在意它(然后,一个人当然可以在调用它之前包含一个测试)。。

为了防止主窗体失去焦点,您需要注释掉

// Application.MainFormOnTaskBar := True;

但是,这也可以确保在关闭从辅助窗体创建的窗体时,将关闭从辅助窗体创建的窗体。例如:

• 主窗体创建第二个1

关闭Secondary1也将关闭Secondary2和Secondary3。

如果这是不需要的行为,可以通过显式设置PopupParent来声明更多的控制。例如,将所有表单“父”到应用程序的主表单:

procedure TForm1.FormCreate(Sender: TObject);
begin
  PopupMode := pmAuto;
  if Self <> Application.MainForm then
    PopupParent := Application.MainForm;
end;

这样可以确保Application.MainForm将保留在所有其他窗体之后;所有其他窗体都可以切换到前台;当主窗体关闭时,所有窗体都将关闭。

一个快速而肮脏的解决方案是在项目源中注释MainFormOnTaskbar行:

program Project1;

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

{$R *.res}

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

更新

如果希望主窗体始终位于其他窗体之后,则还应重写CreateParams。以下代码按您的预期工作,但我怀疑它可能因其他原因而无法使用:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm1.Create(Application) do
    show;
end;

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  if Application.MainForm <> nil
    then Params.WndParent:= Application.MainForm.Handle
    else Params.WndParent:= 0;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

end.

修复: 自我,隐藏 在OnClose事件中。

procedure TPopupForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Self.Hide;
  Action := caFree;
end;