删除tcategorypanel边框

Question

如何从XE3中的TCategoryPanel和TCategoryPanelGroup中删除边框？

尝试过这个并没有奏效:

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

对于TCategoryPanel需要设置的保护属性BevelOuter来bvNone.

因为TCategoryPanelGroup你确实可以删除边框CreateParams.像这样:

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

它看起来像这样: