在普通的Delphi XE8 VCL表单应用程序中,在表单上放置TTaskbar
组件后,在程序启动时始终显示以下错误消息框:TWICE:
表单上没有其他组件,因此我认为这是内部不兼容的。
我对这个测试项目中的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;
这是表单仍然不可见时显示的第一条错误消息:
其他两条错误消息与上面的第一个屏幕截图相同,并在表单可见时显示。