ایجاد در زمان اجرا

[ali_gtp]

می خواستم بدونم چطوری میشه در زمان اجرا یک کنترل را ایجاد کرد که:
مشخصاتش مانند کنترلی باشه که در فرم وجود داره؟ مثلا فونت و سایز و...

[vcldeveloper]

 function CloneComponent(AAncestor: TComponent): TComponent; 

  var 

    XMemoryStream: TMemoryStream; 

    XTempName: string; 

  begin 

    Result:=nil; 

    if not Assigned(AAncestor) then 

      exit; 

    XMemoryStream:=TMemoryStream.Create; 

    try 

      XTempName:=AAncestor.Name; 

      AAncestor.Name:='clone_' + XTempName; 

      XMemoryStream.WriteComponent(AAncestor); 

      AAncestor.Name:=XTempName; 

      XMemoryStream.Position:=0; 

      Result:=TComponentClass(AAncestor.ClassType).Creat  e(AAncestor.Owner); 

      if AAncestor is TControl then 

         TControl(Result).Parent:=TControl(AAncestor).Paren  t; 

      XMemoryStream.ReadComponent(Result); 

    finally 

      XMemoryStream.Free; 

    end; 

  end; 

از:

http://www.delphi3000.com/articles/article_4811.asp