Pasar una Clase por parametro

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

[ecfisa]

Hola.

El compañero Al, me ha hecho una observación sobre un error que cometí al tipear una línea de código:

Código Delphi [-]
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);  <---- AQUI.
end;

Lo correcto es:

Código Delphi [-]
 AClass.Create(Application)

Mis disculpas si la confusión le acarreó dolores de cabeza a alguien y mi agradecimiento a Al por avisarme prontamente del error, ya que
la idea es que los ejemplos ayuden a simplificar el entendimiento y no que lo compliquen más...

Saludos.

[ecfisa]

Empezado por 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.

Hola.

Según tengo entendido:

1. No lo sé.
2. Se puede usar sin necesidad de instanciar la clase.
3. Ninguna, los métodos de clase son estáticos.

Saludos.

[[maeyanes]]

Hola...

Empezado por ecfisa

Hola.

Según tengo entendido:

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

Saludos.

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.


Saludos...