我使用 Delphi XE2 构建了下面的代码。它创建 Form1,Form1 立即创建 Form2 的实例。当我按下 Form2 上的按钮时,会创建第二个 Form2。
现在,如果我将鼠标悬停在第二个、最上面的 Form2 上的按钮上,并等待工具提示出现,工具提示出现的那一刻,firstForm2 出现在最前面,抢尽了焦点。
仅当出现此问题时Application.MainFormOnTaskbar
is True
。它还依赖于从 Form1 创建的第一个 Form2FormCreate
方法。如果我使用PostMessage()
延迟创建第一个 Form2 直到应用程序完成初始化,问题就消失了。
我想了解为什么会发生这种情况。我已经了解到Delphi的Application对象处理很多事情,包括提示显示,并且我知道Delphi可以在初始化期间重新创建窗口的句柄,但我无法遵循这一点来完全解释上述行为(或事实上上述两个事实是否相关)。
项目1.dpr
program Project1;
uses
Vcl.Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True; // False makes problem go away
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Unit1.pas
unit Unit1;
interface
uses
Vcl.Forms, Unit2;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
public
procedure CreateForm2;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
CreateForm2;
end;
procedure TForm1.CreateForm2;
var
frm : TForm2;
begin
frm := TForm2.Create(Application); // (Could pass Self - makes no difference)
frm.Show;
end;
end.
Unit2.pas
unit Unit2;
interface
uses
Vcl.Forms, System.Classes, Vcl.Controls, Vcl.StdCtrls, WinApi.Windows;
type
TForm2 = class(TForm)
Button1: TButton; // This button has a hint
procedure Button1Click(Sender: TObject);
end;
var
Form2: TForm2;
implementation
uses
System.SysUtils, Unit1;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.CreateForm2;
end;
end.