F
FlyKnight2
Unregistered / Unconfirmed
GUEST, unregistred user!
在移值控件时(从D5到D6)时,发现一个厅怪的问题,在编译到在DELPHI6自带的
source/toolsapi/designeditors.pas的时候居然通不过,不知为什么,还请教大家。
其中的错误一段如下。
function TCustomModule.ValidateComponentClass(ComponentClass: TComponentClass): Boolean;
var
Base: TComponent;
begin
if FFinder = nil then
begin
Base := Root;
if Base.Owner <> nil then
// If the root has an owner then we want to find classes in the owners
// class group not just the root's. This represents what will be active
// when the class is loaded at runtime.
Base := Base.Owner;
FFinder := TClassFinder.Create(TPersistentClass(Base.ClassType));
end;
while IsProxyClass(ComponentClass) do 《----------就这个 isProxyClass说找不到
ComponentClass := TComponentClass(ComponentClass.ClassParent);
// We should only accept classes that are the same as the streaming system
// will see.
Result := FFinder.GetClass(ComponentClass.ClassName) = ComponentClass;
end;
source/toolsapi/designeditors.pas的时候居然通不过,不知为什么,还请教大家。
其中的错误一段如下。
function TCustomModule.ValidateComponentClass(ComponentClass: TComponentClass): Boolean;
var
Base: TComponent;
begin
if FFinder = nil then
begin
Base := Root;
if Base.Owner <> nil then
// If the root has an owner then we want to find classes in the owners
// class group not just the root's. This represents what will be active
// when the class is loaded at runtime.
Base := Base.Owner;
FFinder := TClassFinder.Create(TPersistentClass(Base.ClassType));
end;
while IsProxyClass(ComponentClass) do 《----------就这个 isProxyClass说找不到
ComponentClass := TComponentClass(ComponentClass.ClassParent);
// We should only accept classes that are the same as the streaming system
// will see.
Result := FFinder.GetClass(ComponentClass.ClassName) = ComponentClass;
end;