Sí, podemos :) He hecho esto para un diseñador de página que utiliza solo cuadros de texto, reglas (líneas) y gráficos pero debería funcionar para todos los controles registrados.
[Apagado el código manguito aproximación]
var
i, itemCount: Integer;
AClassName: string;
AnItemClass: TSomeBaseClass;
AnItem: TSomeDrivedBaseClass
ARect: TRect;
begin
// just so we have an initail size
ARect.Left := 100;
ARect.Top := 100;
ARect.Bottom := 200;
ARect.Right := 200;
// Alist is a specialised TStringList
for i := 0 to itemCount - 1 do
begin
AClassName := Alist.ByKey['Class' + IntToStr(i)]; // locate class name
AnItemClass := TSomeBaseClass(GetClass(AClassName)); // ClassName must be registered
AnItem := AnItemClass.Create(OwnerComponent, ARect, AParent);
AnItem.LoadFromFile(IntToStr(i), AList); // specialised loader that reads and sets all necessary properties
AddItemToComponentList(AnItem); // Add to form/frame/panel whatever
end;
end;
Por supuesto, primero necesita un "diseñador de formularios" que puede guardar el diseño inicial - el ahorro es justo al revés de lo anterior ... Voy a deja eso como un ejercicio para el lector. Con una pequeña modificación, puede usar Delphi y leer el archivo DFM :)
+1, esta biblioteca XI luce grea t. – mghie
XI parece cumplir mis requisitos por completo, menos uno. No es gratis Debería haber mencionado eso en la pregunta en primer lugar. – user114285