Usuń granicę tcategorypanel

Question

Jak usunąć ramkę z TCategoryPanel i TCategoryPanelGroup w XE3?

próbowałem tego i nie działa:

type 
    TCategoryPanel = class (Vcl.ExtCtrls.TCategoryPanel) 
protected 
    procedure CreateParams (var Params: TCreateParams); override ; 
end ; 

procedure TCategoryPanel.CreateParams (var Params: TCreateParams); 
begin 
    Inherited ; 
    Params.Style:= Params.Style and not WS_BORDER; 
end ; 

Answer 1

Dla TCategoryPanel trzeba ustawić chronionej własności BevelOuter do bvNone.

Dla TCategoryPanelGroup można rzeczywiście usunąć granicę w CreateParams. Tak:

Params.Style := Params.Style and (not WS_BORDER); 

Wygląda to tak: