TCustomFrameから継承したコンポーネントがTFrameと異なるのはなぜですか？

Question

私はTCustomFrame書いた：その後、私は 『sの子クラスの正確TFrame（Forms.pasユニット）からコピーされたS子クラスを

TMyFrame = class(TCustomFrame) 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    published 
    property Align; 
    property Anchors; 
    property AutoScroll; 
    property AutoSize; 
    property BiDiMode; 
    property Constraints; 
    property DockSite; 
    property DragCursor; 
    property DragKind; 
    property DragMode; 
    property Enabled; 
    property Color nodefault; 
    property Ctl3D; 
    property Font; 
    property Padding; 
    property ParentBackground default True; 
    property ParentBiDiMode; 
    property ParentColor; 
    property ParentCtl3D; 
    property ParentFont; 
    property ParentShowHint; 
    property PopupMenu; 
    property ShowHint; 
    property TabOrder; 
    property TabStop; 
    property Visible; 
    property OnAlignInsertBefore; 
    property OnAlignPosition; 
    property OnCanResize; 
    property OnClick; 
    property OnConstrainedResize; 
    property OnContextPopup; 
    property OnDblClick; 
    property OnDockDrop; 
    property OnDockOver; 
    property OnDragDrop; 
    property OnDragOver; 
    property OnEndDock; 
    property OnEndDrag; 
    property OnEnter; 
    property OnExit; 
    property OnGetSiteInfo; 
    property OnMouseActivate; 
    property OnMouseDown; 
    property OnMouseEnter; 
    property OnMouseLeave; 
    property OnMouseMove; 
    property OnMouseUp; 
    property OnMouseWheel; 
    property OnMouseWheelDown; 
    property OnMouseWheelUp; 
    property OnResize; 
    property OnStartDock; 
    property OnStartDrag; 
    property OnUnDock; 
    end; 

としてはhereを説明し、私は当初TFrameを定義しました』 IDEでファイルを開き、パッケージを再コンパイルするためにTCustomFrameに切り替え、TabOrderプロパティをDFMから削除しました。

object MyFrame: TMyFrame 
    Left = 0 
    Top = 0 
    Width = 296 
    Height = 31 
    TabOrder = 0 //this line has been deleted 
end 

すべてがOKと思われたが、ソースファイルを開いて保存した後、DFMにはいくつかの新しいプロパティがあったとタイトルバーが表示されます。

object MyFrame: TMyFrame 
    Left = 0 
    Top = 0 
    ClientHeight = 0 
    ClientWidth = 280 
    Color = clBtnFace 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clWindowText 
    Font.Height = -11 
    Font.Name = 'Tahoma' 
    Font.Style = [] 
    OldCreateOrder = True 
    PixelsPerInch = 96 
    TextHeight = 13 
end 

なぜこれが起こったのですか、これらの問題を回避するためにどうすればよいですか？

Answer 1

フレームクラスをカスタムモジュールとして登録するだけです。それが機能するためには、あなたがのためのカスタムモジュールを登録する必要があり ：

TCustomMyFrameModule = class(TCustomModule) 
    function Nestable: Boolean; override; 
end; 

function TCustomMyFrameModule.Nestable: Boolean; 
begin 
    Result := True; 
end; 

EDIT

として

procedure Register; 
begin 
[...] 
    RegisterCustomModule(TMyFrame, TCustomMyFrameModule) 
end; 

をそしてTCustomMyFrameModuleが定義されています。あなたのパッケージの登録手続きで

、このような何かを追加IDEで編集しているクラスの親クラス。

TFrame1 = class(TMyFrame) 
end; 
RegisterCustomModule(TMyFrame, TCustomMyFrameModule) 

IDEであなたのTMyFrameを編集したい場合は、TCustomFrameのためのカスタムモジュールを登録する必要があります。

TMyFrame = class(TCustomFrame) 
end; 
RegisterCustomModule(TCustomFrame, TCustomMyFrameModule)