如何將vcl樣式鉤子應用於表單的特定組件？

Question

我正在使用這個問題的答案的0123的vcl樣式掛鉤close button of a tabsheet not supporting vcl styles和工作正常，但關閉按鈕繪製在我的應用程序的所有TPageControl組件。

而且我要添加此選項（繪製的關閉按鈕），只一種特殊形式。問題是：我如何才能將此鉤子或任何vcl樣式鉤子應用於特定表單的TPageControl？

Answer 1

您可以使用一箇中介類的TPageControl組件

檢查該樣本

type 
    TPageControl = class(Vcl.ComCtrls.TPageControl); 
    TForm1 = class(TForm) 
    PageControl1: TPageControl; 
    ... 
    ... 

，然後註冊在該中介類位於同一單元的VCL風格鉤

TStyleManager.Engine.RegisterStyleHook(TPageControl, TTabControlStyleHookBtnClose); 

或使用完全合格的類型名稱

TStyleManager.Engine.RegisterStyleHook(Unit1.TPageControl, TTabControlStyleHookBtnClose);