TTaskBar - 使用TaskBarButtons显示另一个表单

时间:2014-09-10 14:23:25

标签: delphi focus show delphi-xe6

我使用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只是一个带有组件的新表单。

0 个答案:

没有答案