フォームの作成をキャッチしよう

Question

私が取り組んでいるプロジェクトは、数百のフォームで構成されています。 これらは主にメインフォームから呼び出されます。アプリケーション名はformcaptionsのすべてにあります。

アプリケーションの別のバージョンでは、フォームキャプションを別のアプリケーション名に変更する必要があります。しかしこれは条件付きです。私はformcreateで

Screen.OnActiveFormChange := ScreenOnActiveFormChange; 

を結合し、そのための手順を作っていた思い付いた何

。

procedure TFormMAIN.ScreenOnActiveFormChange(Sender: TObject); 
begin 
    if Newversion then begin 
    if assigned(screen.activeform) then begin 
     Screen.ActiveForm.Caption := SwapFormCaption(Screen.ActiveForm.Caption); 
    end; 
    end; 
end; 

これは95％のケースでうまくいきます。しかし、それらの5％ではフォームが速すぎると示されます。キャプションが更新されてウィンドウがそこに残る前に、ウィンドウが描画されます。しかし、キャプションはすでに新しい価値を持っています。 フォームの高さを1ピクセルずつ増減させていたら、それは正しく表示されます。 form.repaintはここで助けなかった。 これはやっかいなやり方です。

私が本当に望むのは、アクティブ化の代わりにサブフォームの作成を傍受することです。私はそれについてのリソースを見つけようとしましたが、成功しませんでした。

Answer 1

ウィンドウAPIを使用してみましたか？

SetWindowText(Screen.ActiveForm.Handle,PChar(SwapFormCaption(Screen.ActiveForm.Caption)); 

編集： 1以上の提案：これを行うための最善の方法は、すべてのフォームが共通のベースから派生することですウィンドウのメニューバー

DrawMenuBar(Screen.ActiveForm.Handle);