如何在DLL中调用MDI child form？(100分)

cowbird · 2003-02-21

参考了以往的一些讨论，但是好象没怎么解决。 是不是要传递Application, screen？怎么写？

zjxuji · 2003-02-21

1.在DLL定义一个函数传递fsMDIForm 2.选择project-options-packages-build with runtime packages

cowbird · 2003-02-24

不太懂，能不能详细点，

zensonic · 2003-02-24

不要传递变量，传递函数，例： procedure ShowMDIForm(Sender: TObject); begin   if fsMDIForm = nil then      fsMDIForm := TfsMDIForm.Create(Application)   else     with fsMDIForm do     begin       BringToFront;       if WindowState = wsMinimized then WindowState := wsNormal;     end; end; 另外，需要在fsMDIForm的OnClose中添加如下代码 fsMDIForm := nil; Action := caFree;

cowbird · 2003-02-26

能不能讲的详细点，

xiehuadong · 2003-02-26

我有详细的代码不过今天忙改天给你讨论一下我已做成功了

cowbird · 2003-03-03

有谁知道？请告诉我

windbell · 2003-03-03

在dll中建立如下一个函数： function callchiForm(chiForm:TForm):Boolean;stdcall; begin    showmessage('子窗口名称是：'+chiForm.Name) end;  exports   callchiForm; 在主程序中使用： function callchiForm(chiForm:TForm):Boolean;stdcall;external '编译过的dll文件.dll'; 在一个事件中调用： procedure TForm1.BitBtn1Click(Sender: TObject);  //form1为mdiForm begin  callchiForm(from2);//form2为主窗口下的一个子窗口 end;

todayisthursday · 2003-03-14

需要对这两个参数保留，另外要写个DLLProc来释放 {Called whenever DLL entry point is called} procedure LibraryProc(Reason: Integer); begin   Screen:=DllScreen;   Application:=DllApplication; end; begin   DllApplication:=Application;   DllScreen:=Screen;   DLLProc:=@LibraryProc; end.

cowbird · 2003-03-14

接受答案了.

kgafly · 2003-03-14

如何在DLL中调用MDI child form？(100分)

cowbird

Unregistered / Unconfirmed

zjxuji

Unregistered / Unconfirmed

cowbird

Unregistered / Unconfirmed

zensonic

Unregistered / Unconfirmed

cowbird

Unregistered / Unconfirmed

xiehuadong

Unregistered / Unconfirmed

cowbird

Unregistered / Unconfirmed

windbell

Unregistered / Unconfirmed

todayisthursday

Unregistered / Unconfirmed

cowbird

Unregistered / Unconfirmed

kgafly

Unregistered / Unconfirmed

Similar threads