如何在运行时Delphi VCL Style更改时禁用事件

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;。在您致电TStyleManager.TrySetStyle()之前将其设置为True，然后重置为False。

在你想绕过类似事件写代码的所有事件处理：

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