中国开发网: 论坛: 程序员情感CBD: 贴子 117210
haitao
加载一个外部的dfm时,如果它有某个事件属性关联,则会报错
因为这个事件的响应方法实际上并不存在--它对应的pas文件还是个外部文件,并没有被编译进来
如何捕获这个异常,并加入自己的事件列表?--用户触发这个事件时,必须调用PS予以响应,所以,必须知道有这个事件需要响应的,而其它事件是不需要响应的

好像需要继承TStream重载ReadComponent,
function TmyStream.ReadComponent(Instance: TComponent): TComponent;
var
Reader: TmyReader;
begin
Reader := TmyReader.Create(Self, 4096);
try
Result := Reader.ReadRootComponent(Instance);
finally
Reader.Free;
end;
end;


function TmyReader.FindMethod(Root: TComponent;
const MethodName: string): Pointer;
var
Error: Boolean;
begin
Result := Root.MethodAddress(MethodName);
{
Error := Result = nil;
if Assigned(FOnFindMethod) then FOnFindMethod(Self, MethodName, Result, Error);
if Error then PropValueError;
}
if Resut<>nil then
begin
if Assigned(FOnFindMethod) then FOnFindMethod(Self, MethodName, Result, Error);
if Error then PropValueError;
end;
end;

不知道这样好不好,是否还有更简单的办法?
我的blog:http://szhaitao.blog.hexun.com & http://www.hoolee.com/user/haitao
--以上均为泛泛之谈--
不尽牛人滚滚来,无边硬伤纷纷现 人在江湖(出来的),哪能不挨刀(总归是要的)
网络对话,歧义纷生;你以为明白了对方的话,其实呢?

您所在的IP暂时不能使用低版本的QQ,请到:http://im.qq.com/下载安装最新版的QQ,感谢您对QQ的支持和使用

相关信息:


欢迎光临本社区,您还没有登录,不能发贴子。请在 这里登录