請教各位大大 一般按往下鍵時dbgrid會新增一筆 我想問的是當我按往下鍵時不讓dbgrid新增一筆 請問該如何做到

procedure TForm1.DBGrid1KeyDown(Sender: TObject);
begin
  if Key = VK_DOWN then
    Key := $00;
end;

失禮! 這樣通通不能動了! 發表人 -

在 DBGrid 的 OnKeyDown 中判斷是否 Eof，然後作出相應處理： procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key = VK_DOWN) then begin Table1.DisableControls ; Table1.Next ; if Table1.EOF then Key := 0 else Table1.Prior ; Table1.EnableControls ; end ; end; 發表人 - kaida 於 2004/03/15 18:51:44