[novato_erick]

Hola nuevamente hace día he estado trabajando con formularios el cual se me han presentado inconvenientes, me he apoyado en literatura por ejemplo la cara ocultad e delphi, delphi7, delphi handbook (para uso de ribbon). Algunos de ellos brindan técnicas la cual realizo pero una cosa es la teoría y la otra es la practica ustedes deben de saber eso.

Gracias a este foro he encontrado personas que me han ayudado no dándome todo fácil pero si guiándome lo suficiente y a ellos les agradezco.

Siguiendo el asunto de formularios el inconveniente que poseo actualmente es que necesito utilizar mi formulario de ingreso de registros también como formulario de modificación de registro mi código actual algunos los conocen es.

Código Delphi [-]
procedure MuestraVentana(ventana: string; modo: string);
begin
 if ventana = 'Clientes' then
  begin
    if FrmCliente = nil then
    begin
      FrmCliente := TfrmCliente.create(FrmCliente);
      Try
      FrmCliente.Parent := FrmPrincipal.Panel4;
      FrmCliente.Caption := 'Clientes';
      dmacceso.cdsClientes.Active := True;
      dmacceso.cdsClientes.Last;
      dmacceso.cdsClientes.Open;
      dmacceso.cdsClientes.Insert;
      FrmCliente.Show;
      finally
         If FrmCliente.Caption <> ' ' then
         Begin
           FrmPrincipal.TabSet1.Tabs.add(FrmCliente.Caption);
           FrmPrincipal.TabSet1.TabIndex := FrmPrincipal.TabSet1.Tabs.Count - 1;
         end;
   end;
end;

    if modo = 'Editar' then
        begin
            frmCliente.btnModificar.Visible := True;
            frmCliente.btnGuardar.Visible := False;
            dmacceso.cdsClientes.Edit;
            frmCliente.Show;
    end;

  end;

Este es el boton de llamar al formulario para ser modificado

Código Delphi [-]
procedure TfrmFicheroCliente.aModificarExecute(Sender: TObject);
begin
  pais := dmAcceso.cdsClientesPais.text;
  dmacceso.cdsClientes.Edit;
  MostrarRegistroYGuardar;
end;

Este es un procedimiento de modificar en el boton

Código Delphi [-]
procedure TfrmCliente.btnModificarClick(Sender: TObject);
begin
  dmacceso.cdsClientesPAIS.Value := cbexPais.Text;
  dmacceso.cdsclientes.edit;
  dmacceso.cdsClientes.ApplyUpdates(0);

  if Application.MessageBox('Cliente Modificado',
  'Atención',(MB_OK + MB_ICONINFORMATION))= mb_ok then
  begin
    frmcliente.Close;   //            Estas dos lineas de código en particular no 
    frmFicherocliente.Show;//     me hacen nada cuando doy aceptar. Alguna idea como mejorar eso?
  end

end;

Como dije se me están presentando inconvenientes por ejemplo Al estar el formuolario abierto si no le doy clic algun dbEdit no se muestran los datos que quiero modificar..

Saludos;