keydown事件 ... if key=13 then begin if Query.Eof then Query.first else Query.next; end;
这是dbgrid1的KeyPress事件,我试过,行的, procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin key:=#0; postmessage(dbgrid1.handle,wm_keydown,vk_down,0) end end;
...
if key=13 then
begin
if Query.Eof then
Query.first
else
Query.next;
end;
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
key:=#0;
postmessage(dbgrid1.handle,wm_keydown,vk_down,0)
end
end;