llamar a un formulario

[Michel]

Como hago para llamar a un formulario.



El problema es que yo quiero llamar a un formulario por me dio de un String



Ejemplo

var
oForm1 : string;



oform1 tiene el nombre del formulario q deseo llamar q esta en una tabla

oform1.show;


Como lo hagoo

Gracias

[fabianbbg]

Hola
Proba.. definir el nombre del form no como un string sino como un objeto, en el ejemplo el form1 llama al form dos en el evento click del buttom 1, crea dos forms, y pegale esto.. espero que te sirva
form2 seri ael nombre del form porsupuesto


procedure TForm1.Button1Click(Sender: TObject);
var
f:tobject;
begin
f:=form2;
tform(f).ShowModal;

end;

end.

[[gatosoft]]

Prueba la siguiente función:

Function Get_Frm(pNombreFrm:String):Tform;
Var i:Integer;
     vFrm:Tform;
Begin
Result:=nil;
  For i:=0 to Screen.FormCount-1 do
    Begin
      vFrm:=Screen.Forms[i];
      if UpperCase(vFrm.ClassName)=UpperCase('T'+pNombreFrm) then
         Begin
         Result:=vFrm;
         Exit;
         end;//if
    end; //For i
end;

Esta te devloverá todos los formularios que estan Creados pero no son visibles. (Estos se guardan en la lista Screen.Forms[i]);

Para probar como funciona, debes hacer lo siguiente:

procedure TForm1.Button1Click(Sender: TObject);
var Elform:Tform;
begin
  Elform:=Get_Frm('Form2');
  if ElForm=nil then
     showmessage('No se puede mostrar el formulario')
  else
    ElForm.Show;
end;

Esto es solo para formularios que no se crean dinámicamente.
si lo quisieras hacer con formularios dinámicos, Lo ideal seria hacer algo como:

Código erróneo....

  pNombreFrm:='Form3';
  vFrm:=TFormClass('T'+pNombreFrm).Create(Application);
  (vFrm as TFormclass('T'+pNombreFrm)).showmodal;

Pero eso no funciona.... Entonces por ahora (mientras averiguamos como hacerlo), deberias ser mas explicito y evaluar tu cadena de texto asi:

if Uppercase(pNombreFrm)='FRMPRINCIPAL' then
begin
frmPrincipal:=TFrmPrincipal.create(self);
frmPrincipal.show;
end;


..etc...


Saludos....

[roman]

Michel:

Puedes crear un objeto a partir del nombre de su clase usando la función GetClass en clases previamente registradas con el procedimiento RegisterClass.

Para el caso específico de formularios podrías hacer lo siguiente:

En la sección initialization de cada formulario que desees crear dinámicamente por medio del ombre de su clase registras ésta:

unit Unit2;

interface

uses
  Classes, Forms;

type
  TForm2 = class(TForm)
    Edit1: TEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

initialization
  RegisterClass(TForm2);
end.

Después, para crear en código el formulario utiliza la siguiente función:

function CreaFormulario(Owner: TComponent; Nombre: String): TForm;
var
  FormaClase: TFormClass;

begin
  FormaClase := TFormClass(GetClass(Nombre));
  if FormaClase <> nil
    then Result := FormaClase.Create(Owner)
    else Result := nil;
end;

Usas esta función así:

var
  Forma: TForm;
  
begin
  Forma := CrearFormulario(Self, oForm);
  if Forma <> nil then
    Forma.Show
  else
    Application.MessageBox('Clase no registrada', 'Error', );
end;

Donde "Self" se refiere al formulario desde donde creas los otros formularios y "oForm" es un string con el nombre de la clase de formulario que desees crear.

Quizá te convenga revisar el siguiente hilo

http://www.clubdelphi.com/foros/arch...hlight=fabrica

así como las referencias que allí se indican que tratan este tema con más detalle. En particular quizá encuentres útil el concepto de "fábrica de clases".

// Saludos