Como controlar la Barra de Navegacion

[Maury Manosalva]

Ok, Gracias, voy a revisar pero creo que esta es la solucion. Saludos.

[Shikanda]

Hola a todos!

Bueno, hoy se ve que mis dudas van todas orientadas a la barra de navegación. Venía buscando precisamente esto, deshabilitar botones específicos de la barra, y he visto este mensaje. He seguido los pasos de jmariano, he creado la clase y he hecho el casting y todo bien, pero al ejecutar, en las lineas

Código Delphi [-]
      Buttons[nbFirst].Enabled := False;
      Buttons[nbLast].Enabled := False;

me da un access violation. Y ya no sé por donde tirar.

Alguna idea de por qué me pasa esto o de cómo solucionarlo??

[[eduarcol]]

Porq en lugar de deshabilitar botones los ocultas?? es mas sencillo en la propiedad visible buttons

[Shikanda]

Los quiero deshabilitar porque según el usuario y según el formulario (es decir, según los permisos), van a poder hacer unas opciones o no. Si los pongo invisibles se me descuadra la barra de navegación y no es lo que busco

[[eduarcol]]

Empezado por jmariano

Código Delphi [-]
procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
  if Button = nbInsert then // Desactivamos algunos botones
    // Moldeamos el tipo para acceder a cada botón
    with THackDBNavigator(DBNavigator1) do 
    begin
      Buttons[nbFirst].Enabled := False;
      Buttons[nbPrior].Enabled := False;
      Buttons[nbNext].Enabled := False;
      Buttons[nbLast].Enabled := False;
      Buttons[nbDelete].Enabled := False;
      Buttons[nbEdit].Enabled := False;
      Buttons[nbInsert].Enabled := False;
      Buttons[nbRefresh].Enabled := False;
    end;
end;

Empezado por Shikanda

Hola a todos!

Código Delphi [-]
      Buttons[nbFirst].Enabled := False;
      Buttons[nbLast].Enabled := False;

Fijate en el detalle del with si no le haces referencia, lo otro que se me ocurre es que no se ha creado el componente pero sin mas datos no puedo adivinar

[Paoti]

hola shikanda....


una solución... no uses dtanavigator



haz esto: (de memoria lo estoy diciendo)

1. Tquery o Table conectada a la base de datos.
2. un datasource conectado al objeto del punto numero.
3. ve a la pestaña standar o additional y dibuja un tactionlist
4. click boton derecho sobre el actionlist, action list editor
5. click boton derecho, add action list standar... busca los que hagan referencia a Dataset (ahí vas a encontrar todas las acciones de registro, insertar, actualizar, primero, ultimo, soguiente, borrar, editar),
6. los agregas y los vinculas con el datasource del paso número dos.
(les puedes cambiar, el titulo, el acceso directo, la imagen)
7. dibujate varios botones, y en al propiedad action del boton asocia una accipn que acabas de definir.


así ya tienes el comportamiento de un dbnavigator con botones, y puede ser con menus tamien, son popupmenus, etc etc etc....

[Shikanda]

Hola, Paoti!

Es muy interesante lo que me has comentado. Estoy aprendiendo muchas cosas todavía y no tenía ni idea de lo que eran lo ActionList estos... dan muchas posibilidades! Voy a ver como me las consigo apañar. Ya os contaré.

Muchas gracias!


Edito:

Por cierto, [eduarcol], tenía puesto el while en el código, se ve que me lo dejé en el camino a la hora de copiar código. Muchas gracias por la advertencia