Ver Mensaje Individual
  #5  
Antiguo 06-04-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Drakyto.

Me parece que el problema está en la creación y destrucción de ventanas.

.- Saca el segundo Form de "Auto-Create forms".
. Te pongo un símple código ejemplo de creación:
Código:
{ CREAR NO MODAL }
procedure TForm1.btnNoModalClick(Sender: TObject);
var
  frm: TForm;
begin
  frm:= Application.FindComponent('Form2') as TForm;
  if Assigned(frm) then  // SI ESTA OCULTO,
    frm.Show             // MOSTRAR
  else
    Form2:=TForm2.Create(Application); // SI NO CREAR
end;
{ CREAR MODAL }
procedure TForm1.btnModalClick(Sender: TObject);
begin
  with TForm2.Create(Application) do
  begin
    try
      ShowModal;
    finally
      Free;
    end  
  end;
end;
.- Recuerda asignar Action:= caFree en el evento OnClose del segundo Form.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 14-04-2010 a las 02:29:12.
Responder Con Cita