Pasar una Clase por parametro

[robacio_ivan]

Empezado por maeyanes

Hola...

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



Saludos...

procedure TfrmMainGeneral.EjecutarForm(pForm: TfrmForm; pNomPantalla: String);
var
lTransActive: Boolean;
begin
lTransActive := False;
if not DMLectura.IBTRead.InTransaction then
begin
DMLectura.IBTRead.StartTransaction;
lTransActive := True;
end;//if not DMLectura.IBTRead.InTransaction then

if FSesionUsr.AccesoFormSistema(FSesionUsr.GetSesionIDGrupoUsuario, pNomPantalla) then
pForm.ExecuteModal(Self)
else
MessageDlg(Usuario_sin_permiso, mtInformation, [mbOK], 0);

if lTransActive then
DMLectura.IBTRead.Rollback;
end;


y despues lo que quiero hacer es

EjecutarForm(TfrmVenta, Pant_Ventas);