Como controlar la Barra de Navegacion

[Maury Manosalva]

Hola Nuevamente, tengo una barra de Navegacion sacada de la pestaña datacontrol y deseo colocar los botones en falso (quedan en grises y no puedo dar click sobre ellos (tipo false)) cuando ejecuto el comando insert quiero que solo me muestra los botones nbPost y nbCancel, lo hice con .VisibleButtons quitando los botones Primero, anterior, next, ultimo, pero los botones se alargan tomando toda la Barra de Navegacion con los 2 botones activos y esto se ve muy mal, la pregunta es, como puedo colocar los botones falsos sin utilizar el comando VisibleButtons?, si hay una opcion se los sabre agradecer.

Maury
Bucaramanga, Colombia.

[jmariano]

En teoría, no se puede realizar lo que pides porque DBNavigator no posee ninguna propiedad o método que permita activar o desactivar cada botón (sólo te permite, como comentaste, hacerlos visibles o invisibles).

Sin embargo, gracias a que la propiedad sobre los botones del DBNavigator es una propiedad protegida, podemos hacer uso de un pequeño truco para acceder a métodos y propiedades que están protegidas. El truco consiste, simplemente, en declarar un tipo basado en la clase TDBNavigator y después hacer un moldeado de tipo para acceder a la propiedad sobre los botones (y así manipular cada botón pudiendo desactivarlo).

Por ejemplo, para hacer lo que pides:

- primero declaramos la clase basada en TDBNavigator en la parte "interface" de la unidad:

Código Delphi [-]
interface

type

  ...

  // Clase que nos permitirá acceder a los botones del DBNavigator
  THackDBNavigator = class(TDBNavigator)
  end;

  ...

- por último, en el evento "OnClick" del DBNavigator escribiriamos lo siguiente:

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;

Para terminar, solo decir que no es necesario volver activar los botones ya que éstos se actualizan según el estado del DataSet (como ya sabrás).

Saludos!

[jmariano]

Escribo este post sólo para aclarar que la clase "THackDBNavigator", en realidad, puede ser declarada tanto en la parte "interface" como en la parte "implementation" (no importa donde esté, solo tiene importancia si quisieramos hacer uso de la clase fuera de la unidad, aunque habría que publicar también la propiedad relacionada con los botones).

Chao!

[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