如何在表单最小化时在表单标题中显示流程状态

Question

当表单在任务栏上最小化时，我想在表单标题上显示实时流程状态。

当表单状态为 wsnormal 时，它会显示。当表单最小化时，我还想在 form.caption 上显示状态。

procedure Tform1.Button1Click(Sender: TObject);
var
i:integer;
begin
form1.WindowState:=wsminimized;
for i:=0 to 10000 do //10000 files
  begin
  //process files
  form1.caption:=inttostr(i)+'/'+inttostr(10000); //not showing
  application.processmessage;
  end;
end;

当流程完成且表单状态为 wsnormal 时，form1.caption 显示状态 '10000/10000'。

我正在使用德尔福 7.0

提前谢谢你。

Answer 1

当表单最小化时，您看不到它的标题栏，因此更新它没有意义，是吗？也许您正在谈论旧版本的 Microsoft Windows 中任务栏中显示的标题（以及新版本中的非默认设置）？您可以使用 Application.Title 进行设置。或者你正在考虑Aero Peek功能？实际上，您可以在那里看到表单的标题，即使表单最小化，它也会正常更新。