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);

[Neftali [Germán.Estévez]]

En esta caso estás pasando un objeto de tipo TfrmForm, pero no una referencia a la clase, que son cosas distintas; Si quieres ejecutar un mérodo de clase (ExecuteModal), debes pasar la referencia. Otra opción sería pasar el form y ejecutarl por RTTI, pero creo que no es el caso.

Código Delphi [-]
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;

Código Delphi [-]
  EjecutarForm(TfrmVenta, Pant_Ventas);

Lo primero es cambiar:

Código Delphi [-]
// Cambiar esto
procedure TfrmMainGeneral.EjecutarForm(pForm: TfrmForm; pNomPantalla: String);

// por esto otro:
procedure TfrmMainGeneral.EjecutarForm(pForm: TfrmFormClass; pNomPantalla: String);

Y en algun sitio (en la sección de type) definir:

Código Delphi [-]
  TfrmFormClass = class of TfrmForm

  TfrmForm = class(TForm)
  published
    class procedure ExecuteModal(Sender:TForm);
  end;

En ese caso la llamada a:

Código Delphi [-]
EjecutarForm(TfrmVenta, 'Pant_Ventas');

Funcionará, siempre y cuando la clase TfrmVenta derive de TfrmForm,

Código Delphi [-]
TfrmVenta = class(TfrmForm)
 ...

No se si me he explicado.


EjecutarForm(TfrmVenta, 'Pant_Ventas');
==> Este procemimiento llega a la línea:
pForm.ExecuteModal(Self)
==>pForm lo hemos pasado como parámetro con un constructor de clase (TfrmVenta); Revisa esta clase y no tiene el método ExecuteModal, pero sí su antecesor TfrmForm. Como lo tiene definido como método de clase, lo ejecuta:
class procedure ExecuteModal(Sender:TForm);
==> Este ,método supongo que crea el form y lo visualiza modal.

[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