実行時のイベントを無効にする方法Delphi VCLスタイルの変更

Question

私のアプリケーションでVCLスタイルを使用したいと思います。 は私が

がどのように変化するスタイルでイベントを無効にするOnShowイベントでいくつかのコード、さらにonResize ...変更するスタイルは、他のフォームイベントをトリガし

。（FormShow、FormResize）を持っています。変更のスタイルのために

私はコードを使用します

TStyleManager.TrySetStyle(cbStyles.Items[cbStyles.ItemIndex], True); 

サンプルコード：

procedure TForm1.AddLog(AMsg: String); 
begin 
    if cbEnableLog.Checked 
    then Memo1.Lines.Append(AMsg); 
end; 

procedure TForm1.bChangeClick(Sender: TObject); 
begin 
    TStyleManager.TrySetStyle(cbStyles.Items[cbStyles.ItemIndex],True); 
end; 

procedure TForm1.FormResize(Sender: TObject); 
begin 
    AddLog('FormResize'); 
end; 

procedure TForm1.FormShow(Sender: TObject); 
begin 
    AddLog('FormShow'); 
end; 

Answer 1

をブール変数、f.ex.を宣言InStyleChange: boolean;。 TStyleManager.TrySetStyle()に電話する前にTrueに設定し、直後にFalseにリセットしてください。あなたのようなイベントの書き込みコードをバイパスしたいすべてのイベントハンドラで

：

procedure TForm1.FormResize(Sender: TObject); 
begin 
    if InStyleChange then exit; 
    AddLog('FormResize'); 
end;