Ver Mensaje Individual
  #7  
Antiguo 07-05-2011
Kelvin Kelvin is offline
Registrado
NULL
 
Registrado: may 2011
Posts: 7
Reputación: 0
Kelvin Va por buen camino
Cita:
Empezado por luk2009 Ver Mensaje
Código Delphi [-]
begin
  if not Assigned(Form2) then
   begin
     Form2 :=TForm2.Create(Self);
     Form2.Show;
   end
 else
   begin
     if Form2.WindowState=wsminimized then
       Form2.Show;
       Form2.WindowState:=wsNormal;
   end;
end;

La idea es crear es form y si ya esta creado que lo muestre.
esta es una idea que te podria servir, donde ademas si el form esta minimizado lo muestra en ventana normal.

Si, muy buena idea la que planteas, seguro y la adoptaré.

Solo una interrogante....¿como cierras este tipo de ventanas no modales?, tengo entendido que en el evento OnClose del formulario creado agregas :

CloseAction:=caFree;

pero esto me envia un mensaje de error...

¿Cual es la codificación correcta que debo emplear?

De antemano gracias..
Responder Con Cita