如何从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 ;
答案 0 :(得分:7)
对于TCategoryPanel
,您需要将受保护的属性BevelOuter
设置为bvNone
。
对于TCategoryPanelGroup
,您确实可以删除CreateParams
中的边框。像这样:
Params.Style := Params.Style and (not WS_BORDER);
看起来像这样: