删除tcategorypanel边框

时间:2013-04-14 20:50:45

标签: delphi delphi-xe

如何从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 ;

1 个答案:

答案 0 :(得分:7)

对于TCategoryPanel,您需要将受保护的属性BevelOuter设置为bvNone

对于TCategoryPanelGroup,您确实可以删除CreateParams中的边框。像这样:

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

看起来像这样:

enter image description here