Como controlar la Barra de Navegacion

[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

[Paoti]

date una vuelta por google....


http://bdn1.borland.com/article/borc...aper/6102.html


encontraras documentacion interesante


mira en este link esta lo que te explique.... solov e las imagenes

http://www.activedelphi.com.br/modul...rticle&sid=429

o si dominas portugues, va a estar mejor


saludos

[Shikanda]

Guau! Muchas gracias, Paoti. Prometo estudiarmelo y sacarle provecho

Respecto a mi programa, el jefe no quiere que toque los navegadores. Llevo poco tiempo aquí y de momento lo que hago es depurar sin destruir, con que tendré que apañármelas con estos navegadores que parece que gustan tan poco. Debe ser algún problema con los datasets, seguro. Seguiré buscando y ya os cuento

Hablamos!

[Shikanda]

Ay! Despues de una semana ignorandome ahora me meten bullaaaa.

Nada, tengo que usar el navegador. Tengo que ponerle, según el caso, enabled false al boton insertar, eliminar o editar. Y al programa le da igual que lo quiera poner enabled false como invisible. Compila bien, ejecuta, y cuando va a cargar el formulario da un Debugger Exception Notification que dice así:

[nota]
'Access violation at address 40106167 in module 'vcl60.bpl'. Read of address 00000058'
[/nota]


El código usado es este:

Código Delphi [-]
interface
...
  type    THackDBNavigator = class(TDBNavigator) end;
...

Si los quisiera hacer invisibles:

Código Delphi [-]
  THackDBNavigator(NavMain).VisibleButtons := [nbFirst, nbPrior, nbNext, nbLast];

Si quisiera enabled false lo pongo asi:

Código Delphi [-]
 Buttons[nbInsert].Enabled := False;
 Buttons[nbDelete].Enabled := False;
 Buttons[nbEdit].Enabled := False;

Ayudaaaaaa, pleaseeeeeee

PD: La excepción me salta cuando uso los nbInsert y compañia....