DbNavigator boton nbInsert
 

Hola a todos. Tengo una preguntilla que formular.

Necesito saber como manipular los botones del DbNavigator , ya que necesito que cuando se presione el boton insert, uno de los campos del registro nuevo aparezca relleno.

Gracias de antemano currantes.

En un principio no sería necesario lo que pides, símplemente utilia el evento OnNewRecord del Ttable correspondiente.

Un Saludo.

his
 

Holas.

Interesante, voy a ver si consiguo hacer algo.

re his
 

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.

¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿ :confused: ?????????????????????

ale ..... idea feliz
 

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.

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.

his
 

Bonito codigo si señor.