Как отключить события во время выполнения Delphi VCL Изменения стиля

Question

Я хочу использовать VCL Style в своем приложении. У меня есть некоторый код событий 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;. Установите его True, прежде чем звонить по телефону TStyleManager.TrySetStyle() и сбрасывать на False сразу после.

Во всех обработчиков событий, где вы хотите, чтобы обойти код события записи вроде:

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