7

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 ;
4

1 に答える 1

8

保護されたプロパティをTCategoryPanelに設定する必要があるためです。BevelOuterbvNone

TCategoryPanelGroupで境界線を実際に削除できCreateParamsます。そのようです:

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

次のようになります。

ここに画像の説明を入力

于 2013-04-14T21:24:51.127 に答える