delphi2007 教程

delphi2007 教程

首页 新随笔 联系 聚合 管理
  1013 Posts :: 0 Stories :: 28 Comments :: 0 Trackbacks
DLL中的Forms问题,大家来看一下啊!! Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiAPI/html/delphi_20061208104302104.html
我在窗口的panel中调用了一个dll文件中的窗口,调用是一切正常的,但要加  
  Panel1.updatecontrolstate窗口才能正常的显示出来。如果我的dll窗体中用了pagecontrol,问题就出现了,当按上面的tab切换时,   panel的显示不会发生变化,除非再次调用Panel1.updatecontrolstate。   关键是这个语句怎么加,加在什么地方?大家可以尝试一下。  
   
 

你跟踪以下就知道了,Panel1.updatecontrolstate,实际上是给vcl发送消息,  
  updatecontrolstate发送的是cm_base+25;  
   
  所以要么你在本地窗口切换的时候sendmessage,要么在dll窗口中的onpaint事件里  
  写入.  
   
  //不知道对不对,楼主看看

我的子窗口代码:  
  function   CreateDLLForm(myAPP:TApplication;myScr:TScreen):TForm;  
  begin  
    Application:=myApp;  
    Screen:=myScr;  
    application.CreateForm(TfrmDllForm,frmDllForm);  
    result:=frmDllForm;  
  end;  
   
  我的主窗口代码:  
  myHandle:=LoadLibrary('dllproj.dll');  
  if   myHandle<>0   then  
      begin  
          @myProc:=GetProcAddress(myHandle,'CreateDLLForm');  
          if   assigned(myProc)   then  
                begin  
                    DLLForm:=myProc(Application,Screen);  
                    DllForm.Parent:=Panel1;  
                    DLLform.Show;  
                    Panel1.UpdateControlState;  
                end;  
      end;  
   
  我尝试过了,dll窗口的pagecontrol发生变化的时候,主窗口好像无法感知。

可以通过发消息的办法和主窗体通信!  
  SENDMESSAGE(APPLICATION。MAINFORM。HANDLE,WM-XXXX,XX,XX);  
  然后主窗体在对应的消息处理函数里面执行相应的操作!

前提是DLL要用主程序的APPLICATION

带包编译(vcl70.bpl,   rtl70.bpl)

to:newfang(传说中的MIC)  
  我本来想在dll窗口的pagecontrolchange中用sendmessage,结果,主程序根本就没收到,问题确实如你所说,主程序的application句柄得不到啊,所以这个发消息的动作写在什么地方还没研究出来

另外,我处理消息的过程是在主form中定义的,好像消息传给应用程序也不行,要传给form的句柄。

 
  在创建Dllform的时候把applicaton.handle作为DLLForm单元中的全局变量。  
  (或者直接传递panel1的handle);这样就可以给application或者panel1发送消息直接通信了。  
   
  消息在pagecontrol的onchange事件里发送即可。

现在的问题变成了DLL子窗口发消息时怎样知道主窗口的句柄,不是应用程序的,  
 

posted on 2008-09-23 09:36 delphi2007 阅读(289) 评论(0)  编辑 收藏 引用
只有注册用户登录后才能发表评论。