Pasar una Clase por parametro

[robacio_ivan]

Buenas mis amigos delphiteros, tengo una consulta un tato extraña pero con fe de que alguno de ustedes me la puedan responder. Les explico más o menos qué es lo que quiero hacer así entienden el tema.

Lo que yo quiero hacer es un procedimiento al cual yo el pase por parámetro una clase y en este procedimiento ejecutar la misma. Dicho de otra forma y más directo con lo que quiero hacer es un procedimiento que le pase por parámetro una clase de tipo TForm y dentro de este método ejecutar un método de clase.

Bueno espero haber sido bastante claro con la consulta, desde ya agradezco cualquier tipo de ayuda.

[Young]

Hola, supongo que necesitas pasar la instancia de una clase como parámetro y no la clase, bueno si es así, debes definir el parámetro con el tipo de la clase:

Código Delphi [-]
procedure algo( var miForm: TForm ); 
begin
    miForm.miMetodo();
end;

{ la llamada sería algo así... } 
... 
algo( Form1 );

Recuerda incluir las units donde tienes definidas los forms o las clases que quieres pasar como parámetros. Espero sea de ayuda.

Saludos.

[ecfisa]

Hola.

Si no entiendo mál lo que buscas, por ejemplo sería:

Código Delphi [-]
procedure TForm1.SendClassProc(AClass: TFormClass);
begin
  with AClass.Create(nil) do
  begin
    ..
    ShowModal;
  end;
end;

Ejemplo de llamada:

Código Delphi [-]
   SendClassProc(TForm);

Si desearas que el procedimiento pueda recibir cualquier clase tendrías que declarar el argumento del procedimiento de tipo TClass.

Saludos.

[Young]

Empezado por ecfisa

Hola.

Si no entiendo mál lo que buscas, por ejemplo sería:
Código Delphi [-]procedure TForm1.SendClassProc(AClass: TFormClass); begin with AClass.Create(nil) do begin .. ShowModal; end; end;


Ejemplo de llamada:
Código Delphi [-] SendClassProc(TForm);

Si desearas que el procedimiento pueda recibir cualquier clase tendrías que declarar el argumento del procedimiento de tipo TClass.

Saludos.

La verdad no conocía esta técnica, no se me ocurre de momento en que caso práctico ocuparla pero bienvenida sea.

Gracias.

[ecfisa]

Hola Young.

El tipo se denomina referencias de clase, en sí son punteros a tablas de métodos virtuales. Y una de las muchas aplicaciónes prácticas es precisamente la creación de ventanas.

Un saludo.

[ecfisa]

Hola de nuevo.

Creo que me quedé corto con la explicación anterior sin dar ni un mísero ejemplo...

Ejemplos para encapsular la creación/muestra de diferentes tipos de ventanas:

Código Delphi [-]
(* Ventanas modales *)
procedure TForm1.MostrarVentanaModal(AClass: TFormClass);
begin
  with AClass.Create(Application) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

(* Ventanas no modales *)
procedure TForm1.MostrarVentanaNoModal(AClass: TFormClass);
var
  Frm: TForm;
begin
  Frm:= Application.FindComponent(Copy(AClass.ClassName,2,MaxInt)) as TForm;
  if Assigned(Frm) then
    Frm.Show
  else
    Frm.Create(Application);
end;

(* Ventanas MDIChild *)
procedure TForm1.MostrarMDIChild(AClass: TFormClass);
var
  i: Integer;
begin
  for i:= 0 to Screen.FormCount -1 do  
    if Screen.Forms[i] is AClass then
    begin
      Screen.Forms[i].WindowState:= wsNormal;
      Screen.Forms[i].BringToFront;
      Exit;                                   
    end;
  AClass.Create(Application);
end;

Saludos.

[robacio_ivan]

Lo que yo quiero hacer es algo mas o menos parecido pero no es del todo eso, adjunto el código de lo que hago que no me funciona. El procedimiento en si hace varias cosas más yo deje solamente la parte que no me funciona y me interesaria que me ayuden. Espero ser mas claro

Código Delphi [-]
procedure EjecutarForm(var pForm: TfrmForm);
begin
  inherited;
  pForm.ExecuteModal(self)
end;

Para despues llamar a la ejecución de un form de la siguiente manera

EjecutarForm(TfrmVenta);

[[maeyanes]]

Hola...

Empezado por robacio_ivan

Lo que yo quiero hacer es algo mas o menos parecido pero no es del todo eso, adjunto el código de lo que hago que no me funciona. El procedimiento en si hace varias cosas más yo deje solamente la parte que no me funciona y me interesaria que me ayuden. Espero ser mas claro

Código Delphi [-]
procedure EjecutarForm(var pForm: TfrmForm);
begin
  inherited;
  pForm.ExecuteModal(self)
end;

Para despues llamar a la ejecución de un form de la siguiente manera

EjecutarForm(TfrmVenta);

¿Y por qué no te funciona? ¿Algún error? ¿Cuál es el mensaje del error?

Por que así como lo pones, para empezar, la palabra reservada inherited solo tiene uso en métodos de la clase que son override, no en simples procedimientos.

Otro error que veo es el uso de la variable Self, que también solo tiene uso dentro de algún método de una instancia de una clase (o como referencia a un tipo de clase dentro de un método de clase).


Saludos...

[robacio_ivan]

El error que me tira es el siguiente
FMainGeneral.pas(1705): Incompatible types: 'TfrmVenta' and 'Class reference'

[ecfisa]

No estas confundido maeyanes.

Creo que la aplicación que estoy tecleando y el deseo de cumplir lo mejor posible con los foros, me están reclamando un descanso
Si me hubiera detenido un momento a pensar habría recordado al constructor Create que puede ser virtual y de echo es un método de clase...

Saludos.