TTaskbar不兼容?

时间:2015-07-29 11:10:53

标签: delphi taskbar delphi-xe8

在普通的Delphi XE8 VCL表单应用程序中,在表单上放置TTaskbar组件后,在程序启动时始终显示以下错误消息框:TWICE:

enter image description here

表单上没有其他组件,因此我认为这是内部不兼容的。

我对这个测试项目中的TTaskbar组件一无所知,它刚刚被放在表单上。

奇怪的是:它在程序启动时没有错误信息工作了大约一天。现在,在程序启动时始终会显示此错误消息,即使在没有其他组件的新VCL表单项目中也是如此。

导致此错误的原因是什么?它可能是组件中的错误吗?

编辑:现在这很奇怪:当我在按钮单击事件中创建任务栏组件在运行时时,则会显示NO错误消息并且TTaskbar属性运行良好:

var
  Taskbar1: TTaskbar;

procedure TForm1.btn1Click(Sender: TObject);
begin
  Taskbar1 := TTaskbar.Create(Self);

  with Taskbar1 do
  begin
    Name := 'Taskbar1';
    //TaskBarButtons := <>; // ??
    TabProperties := [];
    ProgressState := TTaskBarProgressState.Normal;
    ProgressMaxValue := 5;
    ProgressValue := 2; // works well
  end;
end;

EDIT2 :更奇怪的是:当我在按钮点击事件中创建TTaskbar对象而不是在FormCreate事件中创建它时,会显示3条错误消息:

无功     任务栏1:TTaskbar;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Taskbar1 := TTaskbar.Create(Self);

  with Taskbar1 do
  begin
    Name := 'Taskbar1';
    //TaskBarButtons := <>; // ??
    TabProperties := [];
  end;
end;

这是表单仍然不可见时显示的第一条错误消息:

enter image description here

其他两条错误消息与上面的第一个屏幕截图相同,并在表单可见时显示。

0 个答案:

没有答案