Pasar una Clase por parametro

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