런타임시 이벤트를 비활성화하는 방법 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;