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