Formularios creados por referencia

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