delphi - 删除 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，您需要将 protected 属性BevelOuter设置为bvNone。

对于TCategoryPanelGroup，您确实可以在CreateParams中删除边框。就像这样:

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

看起来像这样: