关于从DLL中调用MDI窗体 ( 积分: 100 )

  • 主题发起人 主题发起人 Wolfding
  • 开始时间 开始时间
W

Wolfding

Unregistered / Unconfirmed
GUEST, unregistred user!
我想把程序做成DLL模块,调用程序是一个多窗口主程序,dll中封装form,在主程序中调用form,结果在Delphi5中没有问题,同样的写法在D6和D7中就不行,不知道为什么,请做过类似项目的xdjm指教!
 
我想把程序做成DLL模块,调用程序是一个多窗口主程序,dll中封装form,在主程序中调用form,结果在Delphi5中没有问题,同样的写法在D6和D7中就不行,不知道为什么,请做过类似项目的xdjm指教!
 
我也想学习这种方法
 
你可以從網上下載一些實例,不過我全部看過了,沒有一個完整的可行方案。
www.delphibox.com
www.delphifans.com
www.2ccc.com
 
代码贴出来看看哦
 
我这边有一个是模式显示式窗体,在DELPHI7编译过了。
如果要显示为非模式的必须给DLL的窗体指定一下父窗体。在DELPHI从入门到精通有详讲。
library prjQuery;

{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }

uses
forms,
SysUtils,
Classes,
query in'query.pas'{frmquery};

function ShowForm:boolean;
var
frmquery :Tfrmquery;
begin
try
try
frmquery := Tfrmquery.Create(application);
frmquery.ShowModal
//alt Form.Show;
result := false;
except
on e:exception do
begin
result := true;
end
end;
finally
frmquery.Free;
end;
end;

exports
ShowForm;
end.
 
托大家的福,我又搜索了一下,搜到一个D5的例子,用D6编译也通过了,可以这么做,估计是我以前做的时候没有注意DLLProc的处理。
例子程序在这里,hui717同学下过来看看吧:
http://www.ddvip.net/program/delphi/index6/three/imgC/49.zip
 
多人接受答案了。
 

Similar threads

后退
顶部