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

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'。

我正在使用delphi 7.0

提前谢谢。

Answer 1

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