在OnKeyDown事件中: procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_NEXT then begin 实现其它功能; Key := 0; end; end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState); begin if key=34 then key:=0; end;
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_NEXT then begin
实现其它功能;
Key := 0;
end;
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
if key=34 then key:=0;
end;