這個程式是改自我原使用的 Delphi Package 中的程式片段 主要目的是讓主程式無需 uses Unit 也可以產生此 Form (DataModule 原理亦相同) 產生之 Form 必須是 TfmMDIBase (我是以 MDI 為撰寫界面) 之後代, 這樣做只是可以多傳送參數給此 Form 而已(SetValue), 如果不需要傳送參數, 則可改成是 TForm 後代亦可. 此 Demo 是依 ComboBox.Text 的 ClassName 產生 Form 的, 您也可以搭配以下物件取得 ClassName, 自於 ClassName 是由 外部檔案或Database取得就看您自己決定了...

TMyAction = class(TCustomAction)
  private
    { Private declarations }
    FUserClassName,
    FUserPackageName,
    FParamVar: String;
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;      published
    { Published declarations }
    property UserClassName: String read FUserClassName write FUserClassName;
    property UserPackageName: String read FUserPackageName write FUserPackageName;
    property UserParam: String read FParamVar write FParamVar;        property Caption;
    property Checked;
    property Enabled;
    property HelpContext;
    property Hint;
    property ImageIndex;
    property ShortCut;
    property Visible;
    property OnExecute;
    property OnHint;
    property OnUpdate;
  end;

http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30761

------
將問題盡快結案也是一種禮貌!

附加檔案：32818_MDI_DLL.ZIP