Pasar una Clase por parametro

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

[robacio_ivan]

¿como pasar como parametro una referencia de una clase en delphi? yo creo que esa es la pregunta correcta.

[[maeyanes]]

Hola...

Como bien ya ha explicado ecfisa más arriba:

Código Delphi [-]
procedure ShowFormModal(AFormClass: TFormClass);
var
  AForm: TForm;

begin
  AForm := AFormClass.Create(nil);
  try
    AForm.ShowModal
  finally
    AForm.Free
  end
end;

// Para llamarla
ShowFormModal(TVentasFrm);

Saludos...

[robacio_ivan]

Probe con la respuesta que me diste pero sigo con el mismo problema, me sigue tirando el mismo error

[Error] FMainGeneral.pas(1706): Incompatible types: 'TfrmForm' and 'Class reference'

Empezado por maeyanes

Hola...

Como bien ya ha explicado ecfisa más arriba:

Código Delphi [-]procedure ShowFormModal(AFormClass: TFormClass); var AForm: TForm; begin AForm := AFormClass.Create(nil); try AForm.ShowModal finally AForm.Free end end; // Para llamarla ShowFormModal(TVentasFrm);



Saludos...

[[maeyanes]]

Hola...

¿Puedes copiar el código completo del procedimiento/método así de cómo haces la llamada al mismo?



Saludos...

[roman]

Empezado por ecfisa

3. Ninguna, los métodos de clase son estáticos.

Esto es correcto.

Empezado por maeyanes

A lo mejor estoy confundido, pero yo puedo hacer algo como:

Código Delphi [-]
TMyClass = class
public
  class procedure MyClassMethod; virtual;
end;

TInheritedClass = class
public
  class procedure MyClassMethod; override;
end;

Y compila y se ejecuta perféctamente.

También esto es correcto.

Empezado por ecfisa

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

Es que ninguno está equivocado:

estático = de clase
estatico != no virtual

// Saludos