So deaktivieren Sie Ereignisse, wenn Laufzeit Delphi VCL Style ändert

Question

Ich möchte VCL Style's in meiner Anwendung verwenden. Ich habe einige Codes in Veranstaltungen OnShow, OnResize ...

Beim Wechsel Stil andere Form Ereignisse ausgelöst. (Technologieformulare, FormResize)

Wie Ereignisse, wenn sie auf Stil ändern deaktivieren.

Für Stil ändern i verwenden Code:

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

Beispielcode:

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

Deklarieren Sie eine boolean Variable, zb InStyleChange: boolean;. Stellen Sie True ein, bevor Sie TStyleManager.TrySetStyle() anrufen und gleich danach auf False zurücksetzen.

In allen Event-Handler in dem Sie das Ereignis Code schreiben wie umgehen möchten:

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