Criss
03 de Noviembre del 2004

Alguien sabe como puedo personalizar las acciones de los botones de un TDBNavigator????
Urgente

Julio
03 de Noviembre del 2004

Usa el evento BeforeAction, el cual tiene lugar antes de que suceda la acción. Para averiguar que boton se ha pulsado usa el parámetro Buttons.
Ejemplo: if (Button= nbEdit) then
// Pones aqui tu codigo.
Por ultimo, si quieres anular la acción por defecto de ese botón, por ejemplo si se ha pulsado nbInsert y no deseas que se inserte, escribes:
BtnClick(nbCancel);
BtnClick( lo que sea) simula que has pulsado ese botón. En nuestro caso has cancelado la acción de insertar.

cristina
03 de Noviembre del 2004

Hola, necesito tú ayuda urgentemente, no entiendo muy bien lo de BtnClick(nbCancel), me refiero a que no sé como ponerlo, entiendes?, podrías ponerme un ejemplo, por favor, es superurgente, gracias de antemano

track
03 de Noviembre del 2004

aqui hay un ejemplo de como personalizar el dbnavigator.

var
BtnName: string;
begin
case Button of
nbFirst : Begin BtnName := 'nbFirst'; ShowMessage('priemro'); end;
nbPrior : begin BtnName := 'nbPrior'; ShowMessage('anterior'); end;
nbNext : begin BtnName := 'nbNext'; ShowMessage('siguiente'); end;
nbLast : begin BtnName := 'nbLast'; ShowMessage('ultimo'); end;
nbInsert : begin BtnName := 'nbInsert'; ShowMessage('insertar'); end;
nbDelete : begin BtnName := 'nbDelete'; ShowMessage('borrar'); end;
nbEdit : begin BtnName := 'nbEdit'; ShowMessage('editar'); end;
nbPost : begin BtnName := 'nbPost'; ShowMessage('guardar'); end;
nbCancel : begin BtnName := 'nbCancel'; ShowMessage('cancelar'); end;
nbRefresh: begin BtnName := 'nbRefresh'; ShowMessage('priemro'); end;
end;