type TMyGrid = class(TDBGrid);// OnKeyDown procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_INSERT then Key := 0 else // 禁止Insert键插入 if (Key = VK_DOWN) and // 如果按下键并且在最后一行则禁止添加 (TMyGrid(DBGrid1).Row = TMyGrid(DBGrid1).RowCount-1) then Key := 0; end;
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_INSERT then Key := 0 else // 禁止Insert键插入
if (Key = VK_DOWN) and // 如果按下键并且在最后一行则禁止添加
(TMyGrid(DBGrid1).Row = TMyGrid(DBGrid1).RowCount-1)
then Key := 0;
end;