Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Crear, mostrar y liberar un formulario modal - Delphi
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

Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A