{
Здесь пpоцедypа CreateClone, котоpая
кpеатит компонентy ОЧЕHЬ ПОХОЖУЮ на
входнyю. С такими же значениями
свойств. Пpисваивается все, кpоме
методов.
}
function CreateClone(Src: TComponent):
TComponent;
var
F: TStream;
begin
F := nil;
try
F := TMemoryStream.Create;
F.WriteComponent(Src);
RegisterClass(TComponentClass(Src.ClassType));
F.Position := 0;
Result := F.ReadComponent(nil);
finally
F.Free;
end;
end;
Vladimir Gaitanoff
vg@divo.ru www.tsinet.ru/~vg (2:5017/5.69)