隱藏 property |
|
答題得分者是：william
|
|
jessechan
版主   發表：109 回覆：394 積分：254 註冊：2002-04-05 發送簡訊給我 |
|
|
FrederickPau
資深會員 發表：4 回覆：161 積分：268 註冊：2002-11-04 發送簡訊給我 |
我的做法是去繼承 TCustomPanel
然後把 TPanel 的宣告拿來用
之後把 AutoSize 的 property 拿掉, 如下: TPanel1 = class(TCustomPanel)
public
property DockManager;
published
property Align;
property Alignment;
property Anchors;
//property AutoSize;
property BevelInner;
property BevelOuter;
property BevelWidth;
property BiDiMode;
property BorderWidth;
property BorderStyle;
property Caption;
property Color;
property Constraints;
property Ctl3D;
property UseDockManager default True;
property DockSite;
property DragCursor;
property DragKind;
property DragMode;
property Enabled;
property FullRepaint;
property Font;
property Locked;
property ParentBiDiMode;
property ParentColor;
property ParentCtl3D;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property TabStop;
property Visible;
property OnCanResize;
property OnClick;
property OnConstrainedResize;
property OnContextPopup;
property OnDockDrop;
property OnDockOver;
property OnDblClick;
property OnDragDrop;
property OnDragOver;
property OnEndDock;
property OnEndDrag;
property OnEnter;
property OnExit;
property OnGetSiteInfo;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnResize;
property OnStartDock;
property OnStartDrag;
property OnUnDock;
end; 不知道有沒有更好的方法
希望高手能提供 ... 讓我也學習學習
|
|
FrederickPau
資深會員 發表：4 回覆：161 積分：268 註冊：2002-11-04 發送簡訊給我 |
不好意思 ...
沒注意到是 BCB 但做法一樣 ... 改在 .h 檔就可以了
以下是我做的 CODE
還是希望各方高手指教 class PACKAGE TPanel1 : public TCustomPanel
{
public:
__property DockManager;
__published:
__property Align;
__property Alignment;
__property Anchors;
//__property AutoSize;
__property BevelInner;
__property BevelOuter;
__property BevelWidth;
__property BiDiMode;
__property BorderWidth;
__property BorderStyle;
__property Caption;
__property Color;
__property Constraints;
__property Ctl3D;
__property UseDockManager = {default = True};
__property DockSite;
__property DragCursor;
__property DragKind;
__property DragMode;
__property Enabled;
__property FullRepaint;
__property Font;
__property Locked;
__property ParentBiDiMode;
__property ParentColor;
__property ParentCtl3D;
__property ParentFont;
__property ParentShowHint;
__property PopupMenu;
__property ShowHint;
__property TabOrder;
__property TabStop;
__property Visible;
__property OnCanResize;
__property OnClick;
__property OnConstrainedResize;
__property OnContextPopup;
__property OnDockDrop;
__property OnDockOver;
__property OnDblClick;
__property OnDragDrop;
__property OnDragOver;
__property OnEndDock;
__property OnEndDrag;
__property OnEnter;
__property OnExit;
__property OnGetSiteInfo;
__property OnMouseDown;
__property OnMouseMove;
__property OnMouseUp;
__property OnResize;
__property OnStartDock;
__property OnStartDrag;
__property OnUnDock;
public:
__fastcall TPanel1(TComponent* Owner);
};
|
|
william
版主  發表：66 回覆：2535 積分：3048 註冊：2002-07-11 發送簡訊給我 |
|
|
jessechan
版主 發表：109 回覆：394 積分：254 註冊：2002-04-05 發送簡訊給我 |
引言: Inherited property cannot be removed, otherwise it wil break the inhteritence. However, making it READ-ONLY or WRITE-ONLY will hide it from the object inspector.Yes, it works. This is the best way to hide the property from Object Inspector I guess. At least, better than modifing the original header. Thanks. Jesse Chan
------
Jesse Chan |
發表時間：2002-11-18 00:13:17
IP:61.228.xxx.xxx 未訂閱
系統時間：2024-04-19 8:10:42
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |