DbNavigator boton nbInsert

[kepacha]

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.

[marcoszorrilla]

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

Un Saludo.

[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.

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

[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:

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.