原程式
USE UGST001,UGST002    if BaseFrom = 'GST001' then
        begin
        GST001 := TGST001.Create(Self);
        GST001.Open(其它相關傳數);
        end;    if BaseFrom = 'GST002' then
        begin
        GST002 := TGST002.Create(Self);
        GST002.Open(其它相關傳數);
        end;
MDIFrom已經封裝於 Package
如何修改由字串參數啟動,動態載入的 MDI & SDI 因為系統 MDI 約300個
如何不要宣告 use 的技巧啟動 自訂TFROM
如下方式啟動
OpenFrom(BaseFrom,其它相關傳數);
謝謝     

引言:

原程式
USE UGST001,UGST002    if BaseFrom = 'GST001' then
        begin
        GST001 := TGST001.Create(Self);
        GST001.Open(其它相關傳數);
        end;    if BaseFrom = 'GST002' then
        begin
        GST002 := TGST002.Create(Self);
        GST002.Open(其它相關傳數);
        end;
MDIFrom已經封裝於 Package
如何修改由字串參數啟動,動態載入的 MDI & SDI 因為系統 MDI 約300個
如何不要宣告 use 的技巧啟動 自訂TFROM
如下方式啟動
OpenFrom(BaseFrom,其它相關傳數);
謝謝     

發表人 - >< face="Verdana, Arial, Helvetica"> 可以做，这个需要用到 DELPHI 包的功能 可以参考下述文章： 《如何使用Delphi開發大型主從架構系統-Package的秘密和威力》 该文章发表在 http://www.borland.com.tw/ 的官方网站上 大概过程是这样的： 1、写一个包 Package，在包中必须注册每个将要被调用的 FORM RegisterClass(TGST001); RegisterClass(TGST002); ... 2、从主程序动态载入该 Package 3、通过每个 FORM 的类型名来Create并启动FORM，如： tPackageClass := GetClass('TGST002'); if tPackageClass <> nil then begin p := TComponentClass(tPackageClass).Create(Application); P.Visible := True; // Show 出你的 Form {... Other Code ...} end; 大祗如此吧，我以前做过一个 Case 也是这样做的。 这种方法挺好的，可以 PlugIn 业务。只是好像这样写的人不多，真遗憾。 只是这样写必须有一个很好的对业务的 Frame 设计方案。