delphi - 表单最小化时如何在表单标题中显示进程状态？

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 功能？实际上，您可以在那里看到表单的标题，即使表单最小化，它也会正常更新。