Editar la accion de un dbnavigator

[rufo]

Buenos días amigos les deseo un excelente fin de semana, quería ver si me pueden ayudar en como puedo hacer para cambiar o mas bien personalizar el mensaje que me sale por default cuando oprimo el boton de delete en el objeto dbnavigator ya que este tiene un mensaje por default y yo quiero personalizarlo un mensaje mio, espero su apoyo y de antemano gracias.

[ecfisa]

Hola rufo.

Un modo es este:

Código Delphi [-]
...
procedure TForm.FormCreate(Sender: TObject);
begin
  DBNavigator1.ConfirmDelete:= False;
end;

procedure TForm.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn);
const
  flags = MB_ICONQUESTION or MB_YESNO;
begin
  if Button = nbDelete then
    if MessageBox(Handle, '¿ Ud. sabe la barbaridad que va a hacer ?', '', flags) = IDNO then
      Abort;
end;

Saludos

[rufo]

Genial, genial probé tu código y me funciono de maravillas gracias.