一个关于MDIForm和MDIChild的问题?

Question

我想先做好一个整体的筐架,然后具体的功能我都做成DLL的形式.我是把主窗体的FormStyle设置成为MDIForm,然后想把DLL中的窗体的FormStyle设为MDIChild,但是在从主窗体调用dll中的窗体的时候.老是提示"NO MDI Forms are currently active"请问各位高手应该怎样传递参数才能解决该问题?

Answer 1

这个当然行,我这有源代码示例程序,要的话给我发消息,将Email发给我,并告诉我是要Mdidll的例子,我给你发

Answer 2

这个当然行,我这有源代码示例程序,要的话给我发消息,把Email地址发过来,并且说明是要MDIdll的例子

Answer 3

来自：bbkxjy 时间：2001-5-25 19:06:00 ID:542279 
光传递 Application 的 Handle 是不够的，需要传递整个 Application 对象。这样：Library ShowFrmdll;
uses
  ...
  Unit1 in 'Unit1.pas' {Form1};var
  DLLApp: TApplication;function ShowDllForm(App:TApplication; ACaption:String):Longint;stdcall;
begin
  
  Application := App;  if not Assigned(Form1) then
    Form1:=TForm1.Create(Application);
  Result:=Longint(Form1);
  Form1.Caption := ACaption;
  Form1.Show;
end;procedure DLLUnloadProc(Reason : Integer);
begin
  if Reason = DLL_PROCESS_DETACH then Application := DLLApp;//恢复
end;exports
  ShowDllForm;begin
  DLLApp := Application; //保存 DLL 中初始的 Application 对象
  DLLProc := @DLLUnloadProc;     //保证 DLL 卸载时恢复原来的 Application
end.要注意的是，创建的窗体被释放后再卸载 DLL。

Answer 4

最好使用Delphi的包技术,稳定成熟,很好用,不会象动态库一样出很多问题;

Answer 5

qixin000(小齐)说的正确，我就这样做的

Answer 6

to qixin000（小齐）:能不能给我个例子？最好了包的，谢了！

Answer 7

to qixin000（小齐）:能不能给我个例子？最好是包的，谢了！

Answer 8

to qixin000（小齐）:能不能给我个例子？最好是包的，谢了！
My Email:
[email protected]

Answer 9

我也想要一个，谢了！
[email protected]

Answer 10

我也想要一个，谢了！
[email protected]

Answer 11

你们到
http://qixin000.vicp.net/down
取下把,我把它放到那里了;
程序实现的功能是
将包注意窗体的菜单添加到主窗体的菜单中来;
还有包中一些窗体的功能函数的调用;
程序有点乱,是以前测试用的;
自己整理一下吧;更好的利用包技术的思想,请看我的回答
http://expert.csdn.net/Expert/topic/1962/1962766.xml?temp=.2309839
使用dll讲的,不过道理是一样的

Answer 12

程序有两个包,包1调用包2,主程序调用包1,包2
从这个程序中应该能看到,它们之间的耦合性很高;所以代码不好;
所以要考虑用我说的这个方法解决
http://expert.csdn.net/Expert/topic/1962/1962766.xml?temp=.2309839
大家看看,提点意见;
要不我单独发一个帖子大家讨论一下吧;

Answer 13

http://expert.csdn.net/Expert/topic/1974/1974304.xml?temp=.9995996