フォームが最小化されたときのフォームキャプションでのプロセスステータスの表示方法

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の機能を利用していますか？実際にフォームのタイトルが表示され、フォームが最小化されていても通常のように更新されます。