DbNavigator boton nbInsert

[kepacha]

Holas.

Interesante, voy a ver si consiguo hacer algo.

[kepacha]

holas de nuevo.

Para mostrar los datos utilizo un datasource de una consulta. He supuesto que puedo usar el evento OnNewRerord el ella tb. La cuestion es que cree una prueba y le dije que cuando se lanzara este evento me hiciera invisible el grid.

Como resultado de ello ahora nada mas abrir el form donde se encuentra el grid, este me sale invisible , por lo k supongo k este evento se lanza cada vez que se insertan registros en ella.

Supongo que esta opción no me es válida ya que yo quiero que solo se ejecute cuando se puelse sobre el + de un DBNavigator asociado a un DBGrid.

¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿ ?????????????????????

[kepacha]

ains yo i mis cutrerias....


Y si me creo mi boton + y me creo un form de añadir a mi gusto i lo inserto a la tabla i au.... vamos me ahorro de trabajo un 200000% xD.

[marcoszorrilla]

Entonces lo que buscas es esto:

Código Delphi [-]
 procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
 var
  BtnName: string;
 begin
  case Button of
    nbFirst  : BtnName := 'nbFirst';
    nbPrior  : BtnName := 'nbPrior';
    nbNext   : BtnName := 'nbNext';
    nbLast   : BtnName := 'nbLast';
    nbInsert : BtnName := 'nbInsert';
    nbDelete : BtnName := 'nbDelete';
    nbEdit   : BtnName := 'nbEdit';
    nbPost   : BtnName := 'nbPost';
    nbCancel : BtnName := 'nbCancel';
    nbRefresh: BtnName := 'nbRefresh';
 
  end;
  MessageDlg(BtnName + ' button clicked.', mtInformation, [mbOK], 0);
 end;

Un Saludo.

[kepacha]

Bonito codigo si señor.