Ver Mensaje Individual
  #1  
Antiguo 07-02-2009
Lizette Lizette is offline
Miembro
 
Registrado: jun 2008
Posts: 98
Reputación: 16
Lizette Va por buen camino
Cuando creo los formularios dinamicamente no me los muestra

Hola, saludos, tengo el siguiente problema, estoy creando formularios dinamicamente, cuando cierro el formulario frmConsultar previemente creado, utilizo close(); y crea y manda llamar el siguiente formulario.. el caso es que cuando lo ejecuto, me cierra frmConsultar, pero no me muestra el frmBuscar, no sé cual sea el problema. Le calé paso a paso, y si lo cierra, si me crea y me manda llamar frmBuscar, pero cuando termina de ejecutar ese procedimiento desaparece y no se visualiza nada.

El codigo que utilizo es el siguiente:

Código Delphi [-]
procedure TfrmConsultar.BitCancelarClick(Sender: TObject);
begin
if(BitEliminar.Visible=False)and (BitEditar.Visible=False)then
begin
 if(MessageDlg('¿Desea continuar consultando pacientes?', mtConfirmation, [mbYes,mbNo], 1)=mrYes) then
  begin
   close();
   frmBuscarPaciente:=TfrmBuscarPaciente.Create(self);
   frmBuscarPaciente.Show;
  end
 else
  begin
   close();
   frmMenu.Show;
  end;
 end;

Y en el evento o close:

Código Delphi [-]
procedure TfrmConsultarPaciente.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
Action:=caFree;
end;

Gracias por sus aportaciones.
Responder Con Cita