Lenguaje de programación Borland Delphi
Este ejemplo en Delphi 6 muestra cómo crear y mostrar un formuliario modal. Los formularios modales son aquellos que detienen la ejecución del código hasta que se cierran, no se pueden desenfocar (ocultar y mostrar otro) hasta que no se CIERREN. Se utilizan para cuando queramos "obligar" al usuario a ver/seleccionar alguna opción necesaria para el programa (hasta que no la seleccione y cierre el formulario no podrá hacer otra cosa). A continuación os mostramos el código fuente:
procedure TformMenuPrincipal.bSeleccionPuertoIClick(Sender: TObject);
var
formulario : TformPuertos;
begin
formulario := TformPuertos.Create(Application);
try
formulario.ShowModal;
finally
formulario.Free;
end;
end;
En este ejemplo hemos utilizado un formulario modal para mostrar la típica ventana "Acerca de" con información de la aplicación, hasta que el usuario no cierre dicha ventana no podrá hacer otra cosa en nuestra aplicación.
Si colocásemos algún otro código a continuación de "formulario.ShowModal" no se ejecutará hasta que el usuario cierre el formulario "TformPuertos".
Obviamente el formulario "TformPuertos" debe existir en nuestra aplicación, no es necesario que se cargue en el inicio pues este procedimiento lo creará, pero sí es necesario que exista.
Para que el formulario creado se libere correctamente es conveniente colocar el siguiente código (en el evento "OnClose" de dicho formulario):
procedure TformPuertos.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
end;
Si el formulario no se libera correctamente, cuando se vuelva a ejecutar el este código para mostrarlo creará una nueva instancia del formulario y dejará en memoria la anterior. Por ello conviene liberar siempre el formulario como hemos explicado anteriormente.
Publicado el: 2005-07-26
