Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Mostrar un formulario modal en un entorno MDI - Dephi)
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

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+