怎样设置这样的快捷方式?(50分)

怎样为数据库导航按钮DBnavigator上的每个按钮设置快捷键?

自定义一些快捷键，比如使用Action等，然后在里面执行Query.Next.First Provor....就可以了。

Agree with yzhshi, use Actionlist Add

我也知道这样做,我想可不可以直接发出消息,来触发某个按钮单击

你的这种想法不好，可以直接控制其属性的。
DBNavigator1.DataSource.DataSet.Next之类的。当然需要在其Active的时候。

如果一定要实现以上想法,应该怎么做?

DELPHI有现成的控制DataSet的Action，设置DataSource就成了，它会自动判断数据库状态

这种方法完全符合你的要求：）

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, DBCtrls, Buttons, StdCtrls, Db, DBTables;
type
TForm1 = class(TForm)
DBNavigator1: TDBNavigator;
Button1: TButton;
DataSource1: TDataSource;
Table1: TTable;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
type
TDBNavigatorEx = class(TDBNavigator)
public
procedure SetButtons;
end;
{ TDBNavigatorEx }
procedure TDBNavigatorEx.SetButtons;
begin
Buttons[nbFirst].Caption := 'Test&F';
Buttons[nbFirst].Layout := blGlyphBottom;
Buttons[nbPrior].Caption := 'Test&P';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
TDBNavigatorEx(DBNavigator1).SetButtons;
end;
end.

多人接受答案了。