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.

[roman]

Empezado por 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).

De acuerdo, pero en este caso, el hecho de que cervexa use referencias de clase ya me indica que no tendrá mayor dificultad en usar el resto.

// Saludos

[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

[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.