Remove border tcategorypanel

Question

How can you remove a border from TCategoryPanel and TCategoryPanelGroup in XE3?

Tried this and did not work:

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

For TCategoryPanel you need to set the protected BevelOuter property to bvNone .

For TCategoryPanelGroup you really can remove the border in CreateParams . For instance:

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

It looks like this: