Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Formularios creados por referencia (https://www.clubdelphi.com/foros/showthread.php?t=7389)

cervexa 13-02-2004 15:19:42
Formularios creados por referencia
 
Llamo a un formulario con:
Código:
  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 13-02-2004 15:24:30
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 13-02-2004 17:12:56
También podes simplemente hacer un cast de la forma... o tener una variable del tipo adecuado..

y hacer luego:

Código:
Forma.Metodo;
Forma.Variable := Valor;

o bien

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

;)

delphi.com.ar 13-02-2004 17:29:46
Cita:
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 13-02-2004 17:38:57
Cita:
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 13-02-2004 19:46:47
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 13-02-2004 20:01:51
Cita:
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 14-02-2004 09:40:17
Código:
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 14-02-2004 19:11:34
Cita:
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:
Código:
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?

Código:
unit MiCustomForm;

type
  TMiCustom = class(TForm)
  published
    property Propiedad1....
    property Propiedad2....
  end;
Luego los formularios heredarían de este
Código:

  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 16-02-2004 13:56:47
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 18-02-2004 16:29:22
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:
Código:
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:
Código:
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í:
Código:
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 18-02-2004 16:34:59
Sería bueno saber porqué no compila.. ¿Cuál es el error?

PD:
Te recomiedo crear el tipo de referencia de clase propio:
Código:
  TExpFormClass = class of TExpTramites;
Saludos!

cervexa 18-02-2004 16:57:02
Código:
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 18-02-2004 17:17:18
Para hacer eso, tienes que usar herencia visual.

File \ New \ (Buscar la paleta con el nombre del proyecto) \ (Buscar el Formulario )

Saludos!

cervexa 18-02-2004 17:32:42
Gracias por la ayuda.


La franja horaria es GMT +2. Ahora son las 05:47:06.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi