請教前輩 在Dll中的Form為何按Tab沒作用,謝謝

引言: 在Dll中的Form為何按Tab沒作用,謝謝

cubi 你好: 我做的可以喔~~你是怎麼做的呢?? --

由Dll動態載入Form: 如果是MDI的Form我測試是無法用[tab]且Focus(TEdit...)也有點問題, 如果是SDI的Form均無上述問題.    我正計畫寫主Main Form(Exe),其他子功能Function Form(Dll),也遭遇 一些問題如[tab]及Focus...,我寫將一個Form(全功能Open Table,Edit Delete,Post...)寫成Dll形式,再由Exe動態載入此Form,此Form在指定 給Exe中變數TForm,再以Application.Create(...,...);產生該Form,不 知如何寫更不知是否可行,個人認為一定可以,不然國外大型專案補可能 一個Exe完成全部功能,有請版主或各位高手指點.

何不試試delphi特有的package的型式,和dll有點相似,也可以用來將所有的子系統和主系統切開,可動態載入及釋放子系統,我手上有一案子就是這樣做,關於package的用法可以找我以前在本站發表的文章,有簡單的範例 @@~~飛翔在天際的精靈~~@@

------
@@~~飛翔在天際的精靈~~@@

客戶要求規定要用Dll方式,因為原本要用VB開發, VB沒有BPL形式檔案.

引言:

引言: 在Dll中的Form為何按Tab沒作用,謝謝

cubi 你好: 我做的可以喔~~你是怎麼做的呢?? -- >< face="Verdana, Arial, Helvetica"> 不曉得版主是Dll Form是SDI還是MDI,我是用MDI,以下是小弟用的方式

MainForm    procedure TfrmPMMain._ItemClick(Sender: TObject);
var
  EntryPoint: TEntryPoint;
  sDllName: String;
  sDllEP: String;
  sFormName: String;
  bSucc: Boolean;
begin
  sDllName   := 'ABC.Dll';    (* Dll的檔案名稱 *)
  sDllEP     := 'EntryPoint'; (* 要呼叫的Function *)
  sFormName  := 'Form1';      (* 要載入的Form *)      DllHandle  := LoadLibrary(PChar(sDllName));
  if DllHandle = 0 then
    raise Exception.Create('DLL載入錯誤,可能是檔案損壞或找不到該DLL檔!!');      @EntryPoint := GetProcAddress(DllHandle, PChar(sDllEP));      if @EntryPoint <> nil then
  begin
    bSucc := EntryPoint(dcomConn1, Application, Self, sFormName, TMenuItem(Sender).Caption, DllHandle);
    if Not bSucc then
      raise Exception.Create('無法啟動程式!!');
  end
  else
  begin
    raise Exception.Create('找不到'   sDllEP   '該函式名稱,無法呼叫函式!!');
  end;
end;    

發表人 - cubi 於 2002/12/13 09:46:29

續上...

Dll Form    function EntryPoint(var dcom: TDCOMConnection; ParentApplication: TApplication;
                     ParentForm: TForm; FormName: String; MDIFormTitle: PChar;
                     DHandle: THandle): Boolean; export; stdcall;
var
  _GetDCOMConn: TGetDCOMConn;
  FrmClass: TPersistentClass;
  frm: TComponent;
begin
  Result := True;
  frm := FindGlobalComponent(FormName);
  if frm <> Nil then
  begin
    TForm(frm).BringToFront;
  end
  else
  begin
    try
      frmPMPubDM01  := TfrmPMPubDM01.Create(Application);
      frmPMPubDM01.MDIFormCaption := MDIFormTitle;
      frmPMADM01    := TfrmPMADM01.Create(Application);
      Application   := ParentApplication;          (* 取得ParentForm的DCOMConnection *)
      _GetDCOMConn := Nil;
      if TForm(frmPMADM01.Owner).MethodAddress('_GetDCOMConn') <> Nil then
      begin
        @_GetDCOMConn := TForm(frmPMADM01.Owner).MethodAddress('_GetDCOMConn');
        frmPMADM01.dcomPubConn := _GetDCOMConn;
      end;          (* Show Form *)
      FrmClass := GetClass('T'   FormName);
      if FrmClass <> Nil then
      begin
        frmPMPubDM01.DllHandle := DHandle;
        TFormClass(FrmClass).Create(Nil);
      end
      else
      begin
        Result := False;
      end;
    except
      Result := False;
    end;
  end;
end;    procedure DLLUnloadProc(Reason: Integer); register;
begin
  if Reason = DLL_PROCESS_DETACH then
    Application := DllApplication;
end;    exports
   EntryPoint;    begin
  DllApplication := Application;
  DLLProc := @DLLUnloadProc;
end.    

cubi 你好: 我使用的是 SDI Form 可能幫不上忙了... 不知道其他大大有沒有解決方法呢?? --

------
-- 若您已經得到滿意的答覆，請適時結案!! --
-- 欲知前世因，今生受者是；欲知來世果，今生做者是 --
-- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --

EntryPoint(dcomConn1, Application, Self, sFormName, TMenuItem(Sender).Caption, DllHandle); 請問上列的dcomConn1是什麼元件?在元件那一頁次?

引言: EntryPoint(dcomConn1, Application, Self, sFormName, TMenuItem(Sender).Caption, DllHandle); 請問上列的dcomConn1是什麼元件?在元件那一頁次?

您好,那是TADOConnection,在ADO頁次裡

請問版主那裡有