Formularios creados por referencia

[cervexa]

Llamo a un formulario con:

  FormaClase:=TFormClass(GetClass('TExp'+inttostr((Sender as TToolButton).Tag)));
  if FormaClase<>nil then
    begin
      Forma:=FormaClase.Create(Self);
      Forma.ShowModal;
      Forma.Free;
    end;

Quería, antes del showmodal dar valores a variables publicas del form llamado, pero no sé como hacerlo. Y despues de cerrar el formulario recuperar el valor de esas variables.

[delphi.com.ar]

Si las variables, son comunes entre todos tus formularios, puedes crear TAbstractForm o similar, del que hereden todos estos formularios y en lugar de hacer el cast a esta clase. Otra opción es usar RTTI, te recomiendo buscar en el histórico del foro.

Saludos!

[jachguate]

También podes simplemente hacer un cast de la forma... o tener una variable del tipo adecuado..

y hacer luego:

Forma.Metodo;
Forma.Variable := Valor;

o bien

(Forma as TForm1).Metodo;
(Forma as TForm1).Variable := Valor;

Hasta luego.

[delphi.com.ar]

Empezado por jachguate

También podes simplemente hacer un cast de la forma... o tener una variable del tipo adecuado..

No me parece que sea funcional si es que tienes muchos forms de clases diferentes, heredados de TForm...

[roman]

Empezado por delphi.com.ar

No me parece que sea funcional si es que tienes muchos forms de clases diferentes, heredados de TForm...

Así es. De hecho estuve a punto de responder lo mismo que jachguate pero si sólo hubiera una clase de formulario pues no tendría mucho caso usar referencias de clase!

// Saludos

[jachguate]

Creo que depende de las habilidades del programador. Si son dos o tres clases, y el programador no sabe, no puede o no tiene tiempo de crear una clase base de la que hereden las demás... puede adoptar esta solución (que no es la ideal, por supuesto).

Hasta luego.

[cervexa]

Forma.Metodo;
Forma.Variable := Valor;
o bien
(Forma as TForm1).Metodo;
(Forma as TForm1).Variable := Valor;

Esto lo he probado, pero no funciona, da error de compilación. Solo se puede acceder a las variables propias de TForm como Caption, Hint, Tag... De hecho he intentado hacerlo utilizandolas. Metiendo un valor de texto en caption, un integer en tag y otro en hint como texto. Esto ya me valía, aunque no sea un modelo de programación, el problema es que no me dejaba darle valor de retorno al cerrar el formulario.
El caso es que los formulario llamados son diferentes entre ellos y necesito pasarles tres variables, que siempre son las mismas y de recuperar el valor que tienen despues del showmodal.

[delphi.com.ar]

Empezado por cervexa

Esto lo he probado, pero no funciona, da error de compilación. Solo se puede acceder a las variables propias de TForm como Caption, Hint, Tag...

Eso es correcto, por eso te he sugerido anteriormente que todos tus forms hereden de una clase común que tengan estas variables / métodos. Lo que tu quieres hacer, solo se puede hacer bajo el concepto de "late binding" o "dynamic binding", por ejemplo:

var
  MiObjeto: OleVariant;
begin
  {Prueba esto, vas a ver que compila}
  MiObjeto.MandarFruta;
end;

En algunos lenguajes, por ejemplo VB y sus derivados, esta es una práctica común, por suerte en Delphi, esto solo es válido para ciertas clases. Los Automation objects soportan tanto early binding (en tiempo de compilación) como late binding (en tiempo de ejecución, evaluará la existencia del método).

¿Cómo haría lo tuyo?

unit MiCustomForm;

type
  TMiCustom = class(TForm)
  published
     property Propiedad1....
     property Propiedad2....
  end;

Luego los formularios heredarían de este

 
  TForm1 = class(TMiCustom)
  ..

Y en este código, Forma sería del tipo TMiCustom (o haría la pregunta si es de TMiCustom)
[quote=cervexa]Forma.Metodo;
Forma.Variable := Valor;
[quote]

Saludos!

[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