社区
Delphi
帖子详情
dll封装的窗体里不能用TApplicationEvents?
dropme
2010-06-18 02:52:09
普通exe程序里面,可以用TApplicationEvents控件的OnActivate和OnDeactivate事件来检查窗体是否获得焦点,把窗体封装到dll里以后,TApplicationEvents控件貌似没用了,请问这种情况下怎么检测窗体是否获得焦点啊?
...全文
170
7
打赏
收藏
dll封装的窗体里不能用TApplicationEvents?
普通exe程序里面,可以用TApplicationEvents控件的OnActivate和OnDeactivate事件来检查窗体是否获得焦点,把窗体封装到dll里以后,TApplicationEvents控件貌似没用了,请问这种情况下怎么检测窗体是否获得焦点啊?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
dropme
2010-06-22
打赏
举报
回复
楼上的,能写个伪代码不?怎么拦截消息?拦截什么消息?怎么传递消息?传递给谁?
主程序拦截消息还是dll窗体拦截消息啊?如果是主程序拦截消息,主程序怎么知道把消息传递给谁呢?
因为主程序是可以创建多个dll窗体的~
dropme
2010-06-21
打赏
举报
回复
没高手在?给分析下呗?
COMPANY_COCO
2010-06-21
打赏
举报
回复
拦截消息,再进行消息传递,除非使用BPL 做三明治结构,否则在Dll传出Class还是会出现这个问题
dropme
2010-06-19
打赏
举报
回复
是这样子的:
我的dllForm实现了一个ITest接口,然后在dll工程文件里引出ITest,大概是这样:
dll的工程文件里,引出ITest接口
function InitiITest(App: TApplication): ITest;
begin
App.CreateForm(TDllFrm, DllFrm);
Result:= DllFrm;
end;
dllFrm实现ITest接口
dllFrm = class(TForm, ITest)
然后dllFrm上放了一个TApplicationEvent,主程序调用的时候:
test:= InitiITest(Application);
打断点跟踪的时候,发现Application确实传进去了,但是就是截获不了事件,跪求高手解答~
dinoalex
2010-06-18
打赏
举报
回复
传主程序句柄进去看看
iqyely
2010-06-18
打赏
举报
回复
学习下。
SQLDebug_Fan
2010-06-18
打赏
举报
回复
DLL里的TApplication对象和EXE里的对象不是同一个,你可以把EXE赋值到DLL的,这样就可以了。
博客总目录(2007.11.12 - 2010.4.25)
如果我的学习记录和历程能对你有所帮助, 我非常高兴; 但是 -- "万一" 不是高手、更不是大师, 只是利用工作之余学点东西, 并感觉学得挺吃力. 内容都是写时才会, 难免稚嫩, 所以 "仅供参考" 可...
Delphi编程代码规范
要使记录、数组、短字符串或接口类型的参数
不能
被例程修改,就应当把形参标以const。这样,编译器将以最有效的方式生成代码,保证传递的参数不可变。 如果其他类型的参数希望不被例程所修改,也可以标上const。...
delphi 各新版本特性收集
派生的类可以覆盖其中一个重载,但
不能
覆盖所有。 TinterfacedPersistent是一个新的持久对象的基类,不是组件,但是可以实现接口。 ComCtrls.pas TtreeView的CreateTreeNodes方法是新增加的。 ...
delphi 各版本的特性
派生的类可以覆盖其中一个重载,但
不能
覆盖所有。 TinterfacedPersistent是一个新的持久对象的基类,不是组件,但是可以实现接口。 ComCtrls.pas TtreeView的CreateTreeNodes方法是新增加的。 ...
delphi tips and articles 2
Delphi中使用Round函数得到的答案有时与我们所预期的会不太一样: 采用的是四舍六入五留双。即当舍或入位大于或小于五时按四舍五入来处理,而当舍或入位等于五时,就要看前面一位是什么,根据奇进偶不进,它总是返回...
Delphi
5,388
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章