各位大大好!
当我们用dbgrid时,按到最后一行再按"下"时,会出现一个空行,哪怕此dbgrid是readonly时也是如此, 能否把这功能去掉?

編輯記錄

procedure TForm1.ADOTable1NewRecord(DataSet: TDataSet);
begin
if adotable1.State = dsInsert then
adotable1.Cancel;
end;

------
努力會更接近成功

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; 
Shift: TShiftState);
begin
if (Key = VK_DOWN) then
begin
With (Sender as TDBGrid).DataSource.DataSet do begin
DisableControls ;
Next ;
if EOF then
Key := 0
else
Prior ;
EnableControls ;
end;
end ;
end;

十分感谢楼上二位大大的回应,真的很感谢,
另外,我又找到一种方法也能用,帖在此,供参考

procedure Tform1.DataSource1StateChange(Sender: TObject);
begin
if TDataSource(Sender).DataSet.Eof then TDataSource(Sender).DataSet.Cancel;
end;