Lamento molestar tanto, pero hice todo y nada. Auxilio
procedure TMDI….
var
Hija: Tform;
Str_Forma: String;
FormaClase: TFormClass;
begin
Try
:
begin
Qad_Forma.Close;
Qad_Forma.Parameters.ParamByName('Numero').Value := Int_NumeroForma;
Qad_Forma.Open;
:
begin
Str_Forma := 'T' + Qad_FormaORES_FORMA.Value;
FormaClase := TFormClass(GetClass(Str_Forma));
Hija := TFormaClase.Create(Self);
Hija.Show;
end;
end;
:
end;
Initialization
RegisterClass(TFormaClase);
Hice todo esto, pero me sale un Error, "no declarado identificador TFormaClase", por fis que estoy haciendo mal si de acuerdo a un filtro en un query, tengo guardada en una tabla el nombre de l forma.