我在dll中封装了很多窗口在第二个窗口中按一按钮打开第三个窗口时发送一个消息很调用主程序通讯
PostMessage(Application.MainForm.Handle,WM_User+9,Integer(PChar('TForm3')),0);
目的是将第三个窗口类发送到主程序中,主程序处理函数为
procedure Tfmmain.openchild(var MSG: TMessage);
var
myClass : TMyFormClass;
strClassName : string; //
begin
strClassName := PChar(MSG.WParam);
myClass := TMyFormClass(FindClass(strClassName)); //创建类实例
OpenMdiWin_Spec(myClass);//参数为窗口类
end;
FindClass()函数无法取得dll中的封装窗口
请问有什么办法实现我的功能????
PostMessage(Application.MainForm.Handle,WM_User+9,Integer(PChar('TForm3')),0);
目的是将第三个窗口类发送到主程序中,主程序处理函数为
procedure Tfmmain.openchild(var MSG: TMessage);
var
myClass : TMyFormClass;
strClassName : string; //
begin
strClassName := PChar(MSG.WParam);
myClass := TMyFormClass(FindClass(strClassName)); //创建类实例
OpenMdiWin_Spec(myClass);//参数为窗口类
end;
FindClass()函数无法取得dll中的封装窗口
请问有什么办法实现我的功能????
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货