在运行时创建TTaskBar实例的正确方法是什么?

时间:2015-12-23 02:54:44

标签: delphi delphi-10-seattle

使用Delphi 10 Seattle Update 1.

我想在VCL应用程序中在运行时创建TTaskBar的实例。我在TTaskBar找到了一个有趣的问题:

var F: TForm;
    B: TTaskBar;
begin
  F := TForm.Create(Application);

  B := TTaskBar.Create(F);
  B.TabProperties := [TThumbTabProperty.CustomizedPreview];

  F.Show;
end;

上述代码会引发错误:Could not register tab. Error 0

但是,这段代码有效:

var F: TForm;
    B: TTaskBar;
begin
  F := TForm.Create(Application);
  F.Show;

  B := TTaskBar.Create(F);
  B.TabProperties := [TThumbTabProperty.CustomizedPreview];
end;

似乎不允许为隐藏表单创建TTaskBar实例。

0 个答案:

没有答案