Pasar una Clase por parametro

[ecfisa]

No estas confundido maeyanes.

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
Si me hubiera detenido un momento a pensar habría recordado al constructor Create que puede ser virtual y de echo es un método de clase...

Saludos.

[robacio_ivan]

¿como pasar como parametro una referencia de una clase en delphi? yo creo que esa es la pregunta correcta.

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

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

[[maeyanes]]

Hola...

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



Saludos...

[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