Formularios creados por referencia

[marto]

Holap,

en este hilo http://www.clubdelphi.com/foros/showthread.php?t=7307 explico como hacer algo muy parecido mediante interfaces... espero te sirva

[cervexa]

A pesar de la sabiduría que me supone Román mi ignorancia es maxima. Despues de intentar todo lo que se me sugiere, no consigo aprobechar vuestros consejos.
He llegado hasta aqui:
He creado un formulario y lo he añadido al proyecto:

type
  TExpTramites = class(TForm)
  private
    FCodigo:Integer;
    FTexto:String;
  public
    { Public declarations }
  published
    property Codigo:Integer Read FCodigo write FCodigo;
    property Texto:String Read FTexto write FTexto;
  end;

De el, creo, que heredo las propiedades Codigo y Texto en este otro:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,UExpTramites;
type
  TExpTra999 = class(TExpTramites)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

Y lo llamo así:

procedure TExpedientes.ToolButton1Click(Sender: TObject);
var FormaClase : TFormClass;
    Forma      : TExpTramites;
begin
  FormaClase:=TFormClass(GetClass('TExp'+inttostr((Sender as TToolButton).Tag)));
  if FormaClase<>nil then
    begin
      Forma:=FormaClase.Create(Self);
      Forma.codigo:=1;
      Forma.ShowModal;
      Forma.Free;
    end;
end;
initialization
  RegisterClass(TExpTramites);
  RegisterClass(TExp999);

Pero está claro que no entendido lo que me proponiais, porque no me compila.

[delphi.com.ar]

Sería bueno saber porqué no compila.. ¿Cuál es el error?

PD:
Te recomiedo crear el tipo de referencia de clase propio:

  TExpFormClass = class of TExpTramites;

Saludos!

[cervexa]

TExpFormClass = class of TExpTramites;

Con esto ya no tengo errores. Sin embargo, he puesto un boton y un label en el form llamado (Exp999) y no me aparecen en la vantana. Es decir, me aparece la ventana vacia.

[delphi.com.ar]

Para hacer eso, tienes que usar herencia visual.

File \ New \ (Buscar la paleta con el nombre del proyecto) \ (Buscar el Formulario )

Saludos!

[cervexa]

Gracias por la ayuda.