delphi 在DLL中新增窗體

方案一:

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

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

1

procedure23
begin46
7end;8
910procedure showform;stdcall ;
1112
begin
1315
16mainform.show ;
1718
end;

1

exports 23
45 　　showform;

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

1 dllproc:=@dllenterproc ;

**：

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...