Componente TDBNavigator

[Er0s]

Buenos Días de Nuevo!!!

Quisiera saber si la funcion de cualquiera de los botones que compone un TDBNavigator se puede asignar a un TSpeedButton, es decir, que si puedo hacer que un Speedbutton me inserte un cliente en la base de datos de mi aplicacion. Es que los botoncitos de la TDBNAvigator me parecen una horterada y quisiera maquear los botones a mi gusto.

Gracias

[Ñuño Martínez]

Quizá te resulte mejor crear tu propio DBNavigator. Creas un "Frame", pones los botones y le añades una propiedad para decirle la referencia al DataSource/DataSet/SQL o lo que sea que uses para obtener los datos y utilizas sus acciones desde los botones. Básicamente es lo que hace un TDBNavigator.

[roman]

El DbNavigator simple y llano se puede transformar de manera sencilla. Aquí un ejemplo. Tiene la ventaja de que dejamos al DbNavigator de ocuparse de algunos detallitos como la habilitación/inhabilitación de botones según sea necesario.

// Saludos

[Casimiro Noteví]

Creo que es más seguro simplemente cambiar los iconos del dbnavigator, ya que este implementa una serie de funcionalidades difíciles de implementar, por poner un ejemplo: puedes dejar pulsado el botón de "siguiente" y éste avanzará uno a uno los registros hasta el final, es algo que tendrías que implementar manualmente, y que cuando llegue al último se deshabiilte el botón pertinente y se habiliten los otros, y el estado del dataset que habilita, o no, los distintos botones de edit, post, etc. en fin, que está bastante "currado" a pesar de su feo aspecto predeterminado.

[Er0s]

Realmente hay funciones de la DBNavigator que no voy a utilizar(de momento al menos).

Solo quiero implementar:

- Añadir un Registro
- Borrar un Registro
- Modificar un Registro

Creo que en el link que dio roman viene explicado lo que quiero, ya lo probare esta noche, al igual que cambiar los iconos de la DBNavigator a ver si me convence la cosa.

Gracias por las respuestas

Ya os contaré.

[Jucho69]

Hola

A mí me sirvió esta solución:

procedure TForm1.DBNavigator2Click(Sender: TObject; Button: TNavigateBtn);
if button in [nbPrior] then begin.....................end;
if button in [nbNext] then begin.....................end;
if button in [nbInsert] then begin.....................end;

Saludos