delphi 在DLL中新增窗體

2022-04-04 00:30:00 字數 1153 閱讀 3709

方案一:

在dll工程中新建乙個form窗體.在窗體中加入如下**:

1.首先需要再 implementation 之前宣告下以下函式.

1

procedure23

begin46

7end;8

910procedure showform;stdcall ;

1112

begin

1315

16mainform.show ;

1718

end;

2.在dll檔案中匯出表寫入:

1

exports 23

45   showform;

3.讓視窗顯示需要傳入程序控制代碼.

1

23   showform;

完成.方案二.此方案來自鬱金香老師.

1.新建dll.在dll檔案中新增乙個form.

先在dll檔案中新增如下關鍵**:

1

if form1 = nil

then begin form1.:= tform1.create(nil);2

3   form1.visable: = not

from1.visable ;45

end;

67 //但是這樣子會有問題..如果解除安裝這個dll的時候,相應的程式也會跟著退出.

89   //所以必須寫乙個載入解除安裝處理函式

1011

procedure

dllenterproc(reason:integer);

1213

begin

1415

case reason of

1617     windows.dll_process_attach: begin

end;

1819     windows.dll_process_detach:begin form1.free;form1.nil; end;20

21end;22

23

在最後乙個end.  之前新增如下關鍵**:

1 dllproc:=@dllenterproc ;

完成..這樣既可建立含有窗體的dll檔案.

delphi 在DLL中新增窗體

方案一 在dll工程中新建乙個form窗體.在窗體中加入如下 1.首先需要再 implementation 之前宣告下以下函式.1 procedure23 begin46 7end 8 910procedure showform stdcall 1112 begin 1315 16mainform....

在dll中delphi中封裝窗體

dll工程library formdll uses sysutils,classes,forms,dllform in dllform.pas dllfrom2 in dllfrom2.pas begin end.dll單元檔案一 unit dllform inte ce uses windows,...

在dll中delphi中封裝窗體 例項

dll工程 library formdll uses sysutils,classes,forms,dllform in dllform.pas dllfrom2 in dllfrom2.pas begin end.dll單元檔案一 unit dllform inte ce uses windows...