¿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.
Cita:
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