다음은 나의 원래 코드:=========================================================================================================== 유닛 코드 프로그램 Mdiform;uses Forms, UMdiform in ´UMdiform.pas´ {Mainform}, UDM in ´UDM.pas´ {GlobalDM: TDataModule}, UFun in ´UFun.pas´;{$R *.res}begin Application.Initialize; Application.CreateForm(TMainform, Mainform); Application.Run;end.====================================================================================================================================== UMdiform;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Udm,StdCtrls;type TMainform = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public MyHandle:HWND; { Public declarations } end;var Mainform: TMainform;type T_ShowTestMng=function (var adm:TMainform) : Boolean; StdCall;implementation{$R *.dfm}procedure TMainform.Button1Click(Sender: TObject);var Lib_ :THandle; _ShowTestMng :T_ShowTestMng;begin Lib_:=LoadLibrary(pchar(´MdiChild.dll´)); try @_ShowTestMng:=GetProcAddress(Lib_,´_ShowTestMng´); if not(@_ShowTestMng=nil) then _ShowTestMng(Mainform); finally FreeLibrary(Lib_); end;end;procedure TMainform.FormCreate(Sender: TObject);begin MyHandle:=Application.Handle;end;end.============================================================================================================================= MdiChild;uses ShareMem, UMdiform, //이 단원 은 부모 창 단위 입 니 다.맨 위 설정 에서 이 단원 을 검색 하 는 경 로 를 설 정 했 습 니 다. Forms, SysUtils, Classes, UChild in ´UChild.pas´ {FrmChild};//FrmChild 하위 창의 FormStyle 속성 은 FsMDIChild{$R 입 니 다. *.res}function _ShowTestMng(var adm:TMainform) : Boolean; StdCall;begin result:=true; Application.Handle:=adm.MyHandle; Application.CreateForm(TFrmChild,FrmChild); //프로그램 오류:오류 원인:Cannot create form. No MDI Forms are currently active. FrmChild.Show;end;exports _ShowTestMng;end.
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다: