Listing A. MDIForms.dpr

library MDIForms;

uses

SysUtils,

Classes,

Forms,

Windows,

//MDI Child폼의 실제 unit

ChildU in 'ChildU.pas' {ChildForm};

var

DLLApp : TApplication;

procedure MyDLLProc(Reason: Integer);

begin

if Reason = DLL_PROCESS_DETACH then

{ DLL이 메모리에서 내려갈때}

{ 애플리케이션 포인터를 원위치 시킨다. }

if Assigned(DllApp) then

Application := DllApp;

end;

procedure ShowMDIChildForm(MainApp : TApplication);

var

Child : TChildForm;

begin

if not Assigned(DllApp) then

begin

DllApp := Application;

Application := MainApp;

end;

Child := TChildForm.Create(Application.MainForm);

Child.Show;

end;

exports ShowMDIChildForm;

begin

{ DllApp 변수를 초기화 한다. }

DllApp := nil;

DLLProc := @MyDLLProc;

end.

Listing B. MDIForms.dpr

unit MainAppU;

interface

uses

Windows, Messages, SysUtils, Classes,

Graphics, Controls, Forms, Dialogs, Menus;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

Test1: TMenuItem;

ShowMDIChild1: TMenuItem;

N1: TMenuItem;

Exit1: TMenuItem;

procedure ShowMDIChild1Click(Sender: TObject);

procedure Exit1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

{ Import from the DLL. }

procedure ShowMDIChildForm(App : TApplication);

external 'mdiforms.dll';

var

Form1: TForm1;

implementation

{$R *.DFM}

{ Create a child form contained in the DLL. }

procedure TForm1.ShowMDIChild1Click(Sender: TObject);

begin

//DLL함수 호출 부분

ShowMDIChildForm(Application);

end;

procedure TForm1.Exit1Click(Sender: TObject);

begin

Close;

end;

end

델파이 관련 사이트 돌아다니다가 알게된 기법입니다.. 도움이 되시길...

근데 ,.,. 혹시 대구백화점 전산실에 계시는 김성제님이신지요..???





김성제 wrote:

> 안녕하세요..

> 또 질문드립니다. 부탁합니다.

>

> Main 프로그램에서 DLL을 호출하고, DLL에서는 ADD Project로 원하는 폼을

> 추가후 Main 프로그램에서 DLL을 이용하여 추가된 폼을 CREATE 하는 방법을

> 알고 싶습니다.

>

> 즐거운 하루 되세요..

>