0

フォームがタスクバーで最小化されているときに、フォームのキャプションにリアルタイムのプロセスステータスを表示したい。

フォームの状態が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」を示します。

私はdelphi7.0を使用しています

前もって感謝します。

4

1 に答える 1

4

フォームを最小化すると、タイトルバーが表示されないため、フォームを更新しても意味がありませんね。おそらく、古いバージョンのMicrosoft Windows（および新しいバージョンではデフォルト以外の設定）のタスクバーに表示されるキャプションについて話しているのでしょうか。これは、を使用して設定できますApplication.Title。それとも、エアロピーク機能について考えていますか？ここで実際にフォームのタイトルを確認でき、フォームが最小化されている場合でも通常どおり更新されます。

于 2012-04-30T13:53:14.793 に答える