Optimizando Creación de Formularios MDI

[[Lepe]]

¿código adecuado? Perdona D&W, pero no se ha dicho si quiere una instancia o varias del mismo Form, hecho que nos haría modificar bastante nuestro código.

Tampoco se dice si se quiere tener una referencia a la ventana creada, o no le importa.

Código adecuado no creo que exista, lo tendrá que adaptar a sus necesidades y a su gusto. Al menos yo pretendía dar ideas, después él tendrá que adaptarlo.

Empezado por D&W

Código Delphi [-]
Procedure TMainForm.CreateOrRestoreForm(aForm : TForm);
1  if not Assigned(aForm) Then begin
2    aForm := TFormClass(aForm).Create(Application);
3    aForm.Show;
4  end
5  else begin
6    if aForm.WindowState = wsMinimized then  
7        aForm.WindowState := wsNormal;
8    aForm.BringToFront;
9  end;

En cuanto a tu código, no entiendo muy bien como harías una llamada a esa rutina, porque el parámetro es de tipo TForm y después haces un moldeo de tipos a TFormClass en la línea 2. Que conste que no es una crítica, es más bien una duda.


Otros comentarios:
- La línea 3 puede quitarse, como son mdichild, al crear la ventana se muestra por defecto.

nelostanley en el código de maeyanes, no verás ninguna parte hacer referencia a frmC1, por eso no puedes hacer referencia con frmC1.LoQueSea. Aunque es fácil convertir ese procedimiento a una función y que devuelva el "aForm".

Saludos