关闭二级Delphi窗体会导致主窗体失去焦点

从版本升级Delphi安装后 12.0.3170.16989(无更新) 版本 12.0.3420.21218(更新3和4) 我再也不能复制这个问题了。

似乎是更新中修复的错误。

我不明白你所描述的是如何创建一个“孩子”形式的。

但是,不管我是从主窗体还是从第一个“子窗体”创建第二个“子窗体”,无论我关闭它们的顺序如何,我只是尝试了您在步骤中所描述的内容,并且无法在d2009(更新3&4)中复制它。

所以,肯定还有别的事情你没有告诉…

从纯Win32的角度来看,当弹出窗口关闭时,应用程序往往会失去焦点,因为底层框架存在操作顺序问题。Windows不会激活禁用的窗口,因此,在销毁模式弹出窗口时,在弹出窗口上调用DestroyWindow之前,父窗口(重新启用)是非常重要的。

我不知道这将如何应用于Delphi或VCL中的开发。代码示例并不意味着您对模式弹出窗口的销毁方式有很多或任何控制。

尝试以下操作(并避免使用):

with TForm1.Create(nil) do begin
  show;
  activate;
  bringtofront;
end;

像弗朗索瓦一样,我不能用Delphi2009在Windowsxpsp3上重现这种行为。首先打开的窗体在其他窗体关闭后立即返回焦点。

当然,您的项目代码是:

program Project1;

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

{$R *.res}

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

单位代码:

unit Unit1;

interface

uses
  Forms, Classes, Controls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm1.Create(nil) do
    Show;
end;

end.

更正了弗朗索瓦的名字,对不起。