將程式碼寫入DataSet資料集元件的AfterScroll和DataSource元件的
OnStateChange事件中﹕
begin
  SpeedButton1.Enable := Not (DataSource1.DataSet.State In [dsInsert,
    dsEdit]);
  //SpeedButton1指查詢鍵
  SpeedButton2.Enable := Not (DataSource1.DataSet.State In [dsInsert,
    dsEdit]);
  //SpeedButton2指离開鍵
end;    但DBNavigator元件沒有相關的屬性設定可以控制﹐您可自訂一組SpeedButton元
件配合使用限制來達到此目的
Private
  {Private declarations}
  Procedure Set; //為自訂的程式作宣告
Public
  {Public declarations}
end;
var
  Form1.Tform1;
implementation
{$R*.dfm}
ProcedureTform1.Set; //自訂的程式內容
begin
  sbFirst.Enabled:=(DataSource1.DataSet.State=dsBrowse) and
                    (not DataSource1.DataSet.Bof);
  //此處選擇使用DataSource1.DataSet 而不直接使用資料集元件是為了
  //方便以后更換資料集元件﹒若以前編譯程式碼時是使用Ttable元件﹐現
  //在要換成Tquery元件﹐只需要將資料集元件修改即可﹐而不需要更改此
  //處的程式碼﹐提升程式碼的可攜性
  sbPrior.Enabled := (DataSource1.DataSet.State=dsBrowse) and
                    (not DataSource1.DataSet.Bof);
  sbNext.Enabled:=(DataSource1.DataSet.State=dsBrowse) and
                    (not DataSource1.DataSet.Eof);
  sbLast.Enabled:=(DataSource1.DataSet.State=dsBrowse) and
                    (not DataSource1.DataSet.Eof);
  sbInsert.Enabled:=(DataSource1.DataSet.State=dsBrowse);
  sbDelete.Enabled:=(DataSource1.DataSet.State=dsBrowse) and
                     ((not DataSource1.DataSet.Bof) or
                      (not DataSource1.DataSet.Eof));
  sbEdit.Enabled:=(DataSource1.DataSet.State=dsBrowse) and
                     ((not DataSource1.DataSet.Bof) or
                      (not DataSource1.DataSet.Eof));
  SpeedButton1.Enable := Not (DataSource1.State in [dsInsert, 
                         dsEdit]);
  SpeedButton2.Enable := Not (DataSource1.DataSet.State In [dsInsert,
                         dsEdit]);
end;    將以上的程式碼加在資料集的AfterScroll事件和DataSource的OnStateChange
事件中即可﹐例如﹕
ProcedureTform1.DataSource1StateChange(Sender:Tobject);
begin
  Set;
end;    ProcedureTform1.Table1AfterScrool(DataSet:TDataSet);
begin
  Set;
end;

 
  case Button of
    nbInsert, nbEdit:BitBtn1.Enabled:=False;
    else
      BitBtn1.Enabled:=True;
  end;

 
procedure TForm1.DBNavigator1BeforeAction(Sender: TObject;
  Button: TNavigateBtn);
begin
  case Button of
    nbInsert, nbEdit:BitBtn1.Enabled:=False;
    else
      BitBtn1.Enabled:=True;
  end;
end;

procedure EditModeNavBtn(Adbnav:TDBNavigator;AEnable:boolean);
var
  i:integer;
  NavBtn:TNavButton;
begin
  for i:= Adbnav.ComponentCount-1 downto 0 do
    if Adbnav.Components[i] is TNavButton then
    begin
       NavBtn := Adbnav.Components[i] as TNavButton;
       case NavBtn.Index of
         nbFirst,
         nbPrior,
         nbNext,
         nbLast,
         nbEdit : NavBtn.Enabled := AEnable;
       end;
    end;
end;        procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
var
  dbnav:TDBNavigator;
  NavBtn:TNavButton;
begin
   if Sender is  TDBNavigator then
   begin
     dbnav :=  Sender as TDBNavigator;         if Button=nbEdit then
     begin
        EditModeNavBtn(dbnav,false);
        // 再加上類似 EditModeNavBtn 的procedure 關閉 speedbtn ..
     end;
   end;
end;

引言: 請問~再加上類似 EditModeNavBtn 的procedure 關閉 speedbtn這一段~ 我是不是只要改個procedure EditModeNavBtn名稱~ procedure EditModeNavBtnSpe(Adbnav:TDBNavigator;AEnable:boolean); var i:integer; NavBtn:TNavButton; begin for i:= Adbnav.ComponentCount-1 downto 0 do if Adbnav.Components[i] is TNavButton then begin NavBtn := Adbnav.Components[i] as TNavButton; case NavBtn.Index of //這裡改放 SpeedButton4, SpeedButton5 end; end; end; 不好意思~好像有問題~我那裡有設錯嗎~><"

procedure EditModeNavBtn(Adbnav:TDBNavigator;AEnable:boolean);
var
  i:integer;
  NavBtn:TNavButton;
begin
  for i:= Adbnav.ComponentCount-1 downto 0 do
    if Adbnav.Components[i] is TNavButton then
    begin
       NavBtn := Adbnav.Components[i] as TNavButton;
       case NavBtn.Index of
         nbFirst,
         nbPrior,
         nbNext,
         nbLast,
         nbEdit : NavBtn.Enabled := AEnable;
       end;
    end;
end;    
procedure TForm1.EditModeSpeedBtn(AEnable:boolean);
begin
  SpeedButton4.Enabled := AEnable;
  SpeedButton5.Enabled := AEnable;
end;        procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
var
  dbnav:TDBNavigator;
  NavBtn:TNavButton;
begin
   if Sender is  TDBNavigator then
   begin
     dbnav :=  Sender as TDBNavigator;         if Button=nbEdit then
     begin
        EditModeNavBtn(dbnav,false);
        EditModeSpeedBtn(false);
     end;
   end;
end;    

引言: SouthWind 您好: 謝謝~我了解您意思~ procedure TForm1.EditModeSpeedBtn(AEnable:boolean); 我己標示為TForm1似乎依然是相同問題~ 或者是 TForm1.EditModeSpeBtn(...)需要作宣告呢~ 因為EditModeSpeBtn是不存在~ ^^

interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, Buttons;    type
  TForm1 = class(TForm)
    ADOQuery1: TADOQuery;
    DBNavigator1: TDBNavigator;
    ADOTable1: TADOTable;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
  private
    { Private declarations }
    
    procedure EditModeSpeedBtn(AEnable:boolean);
    
  public
    { Public declarations }
  end;    var
  Form1: TForm1;