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

我想改变标准 DBNavigator 栏上插入按钮的行为，从数据集插入到追加。

我可以在 BeforeAction 事件中捕获按钮单击，执行追加等；然后在 OnClick 事件中中止原始插入，但这似乎有点黑客。有什么更好的想法吗？我正在使用 D6(计时 500,000 公里，并且仍然很强劲......)。

感谢您的任何建议

问候，

菲尔

最佳答案

您可以从 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;

关于delphi - 如何更改 TDBNavigator 组件的行为？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/536382/