delphi – 如何更改TDBNavigator组件的行为？

您可以从TDBNavigator派生自己的类并覆盖BtnClick方法.
或者,对于快速和脏的修复,您可以在运行时更改插入按钮的单击处理程序,例如：

type
  THackDBNavigator = class(TDBNavigator);

procedure TForm1.DBNavigatorInsertClick(Sender: TObject);
var
  DBNavigator: TDBNavigator;
begin
  DBNavigator := ((Sender as TControl).Parent as TDBNavigator);
  if Assigned(DBNavigator.DatasourcE) and (DBNavigator.Datasource.State <> dsInactivE) then
  begin
    if Assigned(DBNavigator.beforeAction) then
      DBNavigator.beforeAction(DBNavigator,nbInsert);

    DBNavigator.Datasource.DataSet.Append;

    if Assigned(DBNavigator.onClick) then
      DBNavigator.onClick(DBNavigator,nbInsert);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  THackDBNavigator(DBNavigator1).buttons[nbInsert].onClick := DBNavigatorInsertClick;
end;