Foros Club Delphi - Pasar una Clase por parametro

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Pasar una Clase por parametro (https://www.clubdelphi.com/foros/showthread.php?t=73912)

Cita:

Empezado por maeyanes (Mensaje 401201)

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

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.

Cita:

Empezado por ecfisa (Mensaje 401183)

3. Ninguna, los métodos de clase son estáticos.

Esto es correcto.

Cita:

Empezado por maeyanes (Mensaje 401185)

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.

Cita:

Empezado por ecfisa (Mensaje 401194)

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:

Cita:

estático = de clase
estatico != no virtual

// Saludos