Lenguaje de programación Borland Delphi
Este ejemplo muestra cómo crear (si no está creado ya) y mostrar un formulario modal en un entorno MDI (interfaz de múltiples documentos). El entorno de desarrollo MDI es áquel que permite al usuario tener varias ventanas abiertas de la aplicación a la vez. En este tipo de entornos, para mostrar un formulario primero hay que comprobar si ha está creado, en tal caso sólo lo mostramos en caso contrario lo creamos y lo mostramos. Este ejemplo en Delphi comprueba si el formulario "formAcercaDe" ya está creado, si es así lo muestra modalmente ("showmodal"), si no está creado lo crea "application.createform(tformAcercaDe, formAcercaDe)" y lo muestra ("showmodal"):
procedure TformMenuPrincipal.actAcercaDeExecute(Sender: TObject);
var
f : tform;
begin
F := application.findcomponent('formAcercaDe') as TForm;
if Assigned(F) then
f.showmodal
else
begin
application.createform(tformAcercaDe, formAcercaDe);
formAcercaDe.showmodal;
end;
end;
En este caso no es necesario colocar ningún código en el formulario mostrado para que se libere, pues nunca se crearán varias instancias del mismo formulario al comprobar previamente si ya está creado. Aunque, dependiendo del uso que queramos darle al formulario, en ocasiones es conveniente liberar el formulario. En este ejmplo en concreto que se trata de un formuliario de información de la aplicación si es conveniente liberarlo colocando "action := caFree" en el evento "OnClose" del mismo.
Publicado el: 2005-07-26
