haitao:
加载一个外部的dfm时,如果它有某个事件属性关联,则会报错
[阅读: 553] 2005-03-21 02:19:14
因为这个事件的响应方法实际上并不存在--它对应的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;
不知道这样好不好,是否还有更简单的办法?