各位前辈： 小弟看了论坛里面高手关于拦截DbGrids的MouseDown事件，想类似的拦截它的KeyDown事件，但不成功，根本就不行，也许是我的知识太浅。 各位高手，要想实现拦截，TDbGrid或者TDbGridEh的KeyDown事件，该如何实现呢？

其实，我的意思是想让用户在DbGrid里面录入数据的时候，按下down键时，数据集不自动Append。

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_DOWN then Abort;
end;

您好： 再補充一下  

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ADOQuery1.RecordCount= ADOQuery1.RecNo) or (ADOQuery1.State <> dsbrowse) then
    if Key = VK_DOWN then Abort;
end; 

~~應無所住而生其心~~

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var aDataSet: TDataSet; begin if not (Sender is TDBGrid) then Exit; if not Assigned(TDBGrid(Sender).DataSource) then Exit; aDataSet := TDBGrid(Sender).DataSource.DataSet; if not Assigned(aDataSet) then Exit; if not aDataSet.Active then Exit; if not (aDataSet.State in [dsInsert,dsEdit]) then Exit; if Key = VK_DOWN then Key := VK_CONTROL; end;

我不懂您的用意為何？ 在 KeyDown Event 只有 Key 值是可以改變的。 CTRL 鍵 為複合鍵。    若要當按下 DOWN 鍵，等於 CTRL + DOWN。 可這樣做。

type
  TDBGrid = Class(DBGrids.TDBGrid)
  Protected
    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
  end;
  TForm1 = class(TForm)
  ....    procedure TDBGrid.KeyDown(var Key: Word; Shift: TShiftState);
begin
  if Key=VK_DOWN then Shift := Shift   [ssCtrl];
  inherited KeyDown(Key,Shift);
end;

～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

你的目的如果是讓DBGrid不能新增資料列的話，有更簡易的撰寫方式，就是在DataSet的BeferInsert事件中下Abort即可，如    

procedure TForm1.ADODataSet1BeforeInsert(DataSet: TDataSet);
begin
  Abort;
end;