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.