我使用Delphi XE6: 我在TaskBar中创建了一个TaskBarButton。 此按钮与执行以下操作的链接相关联:
TForm2.Create(nil).ShowModal;
Form2显示没有焦点。 有时,使用复杂的表单,新表单会出现在应用程序后面,我必须单击任意位置才能看到它。
为什么我没有专注于我的任务按钮创建的新表单? (如果我点击一个简单的按钮,我的新表格就会有焦点)。
我的主要代码中的代码:
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Unit2, System.Actions, Vcl.ActnList,
System.Win.TaskbarCore, Vcl.Taskbar;
type
TForm1 = class(TForm)
ActionList1: TActionList;
Action1: TAction;
Taskbar1: TTaskbar;
procedure Action1Execute(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Action1Execute(Sender: TObject);
var
FormTest : TForm2;
begin
try
//self.Enabled := False;
FormTest := TForm2.Create(nil);
FormTest.ShowModal;
finally
FormTest.Free;
//self.Enabled := True;
end;
end;
end.
TForm2只是一个带有组件的新表单。