您的位置:首页 > 其它

DLL中的Forms问题,大家来看一下啊!!

2008-09-23 09:31 218 查看
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子窗口发消息时怎样知道主窗口的句柄,不是应用程序的,
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐