使用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
实例。