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.