Pasar una Clase por parametro

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