* Component class

This commit is contained in:
michael 2018-07-05 11:29:58 +00:00
parent ad62d86c9b
commit dbfbadb3f2

View File

@ -588,7 +588,7 @@ type
property Name: TComponentName read FName write SetName stored False;
property Tag: PtrInt read FTag write FTag {default 0};
end;
TComponentClass = Class of TComponent;
Procedure RegisterClass(AClass : TPersistentClass);
Function GetClass(AClassName : string) : TPersistentClass;