将ADone参数设置为True，以防止执行默认按钮的操作

procedure <AForm>.<AcxDBNavigator>ButtonsButtonClick(Sender: TObject; AButtonIndex: Integer; var ADone: Boolean);

begin

  if AButtonIndex = <button index> then

  begin

    ADone := True;

    <你的代码>

  end;

end;