Pasar una Clase por parametro

[ecfisa]

Hola.

Si no entiendo mál lo que buscas, por ejemplo sería:

Código Delphi [-]
procedure TForm1.SendClassProc(AClass: TFormClass);
begin
  with AClass.Create(nil) do
  begin
    ..
    ShowModal;
  end;
end;

Ejemplo de llamada:

Código Delphi [-]
   SendClassProc(TForm);

Si desearas que el procedimiento pueda recibir cualquier clase tendrías que declarar el argumento del procedimiento de tipo TClass.

Saludos.

[Young]

Empezado por ecfisa

Hola.

Si no entiendo mál lo que buscas, por ejemplo sería:
Código Delphi [-]procedure TForm1.SendClassProc(AClass: TFormClass); begin with AClass.Create(nil) do begin .. ShowModal; end; end;


Ejemplo de llamada:
Código Delphi [-] SendClassProc(TForm);

Si desearas que el procedimiento pueda recibir cualquier clase tendrías que declarar el argumento del procedimiento de tipo TClass.

Saludos.

La verdad no conocía esta técnica, no se me ocurre de momento en que caso práctico ocuparla pero bienvenida sea.

Gracias.

[ecfisa]

Hola Young.

El tipo se denomina referencias de clase, en sí son punteros a tablas de métodos virtuales. Y una de las muchas aplicaciónes prácticas es precisamente la creación de ventanas.

Un saludo.

[ecfisa]

Hola de nuevo.

Creo que me quedé corto con la explicación anterior sin dar ni un mísero ejemplo...

Ejemplos para encapsular la creación/muestra de diferentes tipos de ventanas:

Código Delphi [-]
(* Ventanas modales *)
procedure TForm1.MostrarVentanaModal(AClass: TFormClass);
begin
  with AClass.Create(Application) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

(* Ventanas no modales *)
procedure TForm1.MostrarVentanaNoModal(AClass: TFormClass);
var
  Frm: TForm;
begin
  Frm:= Application.FindComponent(Copy(AClass.ClassName,2,MaxInt)) as TForm;
  if Assigned(Frm) then
    Frm.Show
  else
    Frm.Create(Application);
end;

(* Ventanas MDIChild *)
procedure TForm1.MostrarMDIChild(AClass: TFormClass);
var
  i: Integer;
begin
  for i:= 0 to Screen.FormCount -1 do  
    if Screen.Forms[i] is AClass then
    begin
      Screen.Forms[i].WindowState:= wsNormal;
      Screen.Forms[i].BringToFront;
      Exit;                                   
    end;
  AClass.Create(Application);
end;

Saludos.

[Young]

Empezado por ecfisa

Hola de nuevo.

Creo que me quedé corto con la explicación anterior sin dar ni un mísero ejemplo...

Ejemplos para encapsular la creación/muestra de diferentes tipos de ventanas:
Código Delphi [-](* Ventanas modales *) procedure TForm1.MostrarVentanaModal(AClass: TFormClass); begin with AClass.Create(Application) do try ShowModal; finally Free; end; end; (* Ventanas no modales *) procedure TForm1.MostrarVentanaNoModal(AClass: TFormClass); var Frm: TForm; begin Frm:= Application.FindComponent(Copy(AClass.ClassName,2,MaxInt)) as TForm; if Assigned(Frm) then Frm.Show else Frm.Create(Application); end; (* Ventanas MDIChild *) procedure TForm1.MostrarMDIChild(AClass: TFormClass); var i: Integer; begin for i:= 0 to Screen.FormCount -1 do if Screen.Forms[i] is AClass then begin Screen.Forms[i].WindowState:= wsNormal; Screen.Forms[i].BringToFront; Exit; end; AClass.Create(Application); end;


Saludos.

Exelente los ejemplos y gracias nuevamente, ya estoy pensando en un par de tareas en que me van a servir de mucho.

Saludos.

PD: El post no era mio, pero le he sacado buen provecho.

[ecfisa]

Ya que te enganchaste con el tema, te comento otro recurso: Métodos de clase.

Los métodos de clase se aplican a una referencia de clase a diferencia de los métodos aplicados a la instancia de una clase.

Y seguimos con las ventanitas...

Form1:

Código Delphi [-]
...
uses Unit2; // donde está declarado Form2

procedure TForm1.Button1Click(Sender: TObject);
begin
  if  TForm2.Mostrar = mrCancel then
    ShowMessage('Cancelo')
  else
    ShowMessage('Acepto');
end;

Form2:

Código Delphi [-]
...
type
  TForm2 = class(TForm)
    BitBtnAceptar: TBitBtn;
    BitBtnCancelar: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
  private
  public
    class function Mostrar: TModalResult;
  end;

var
  Form2: TForm2;

implementation

class function TForm2.Mostrar: TModalResult;
begin
  if not Assigned(Form2) then
    Form2:= TForm2.Create(nil);
  Result:= Form2.ShowModal;
end;
...
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:= caFree;
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
  Form2:= nil;
end;

(Fijate la diferencia en la declaracion class function o class procedure, con la de un método normal de instancia de clase)

En el ejemplo puse las propiedades ModalResult de los BitBtns a mrOk y mrCancel respectivamente para capturar como salió de Form2, en Form1.

Un saludo.

[Young]

Amigo ecfisa a modo de cultura general...

1. ¿Desde que versión de delphi se introdujieron estos métodos de clases y referencias de clases?

2. ¿El método de clase se puede usar instanciado?

3. ¿Que diferencia tienen con los métodos estáticos?


Saludos.