DBGrid7KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = vk_return then PostMessage((Sender As TDbGrid).Handle,wm_keydown,vk_tab,0) else if (ssShift in Shift) and (key = vk_Down) then (Sender As TDbGrid).SelectedRows.CurrentRowSelected := true; end;改一行就可以了。
Shift: TShiftState);
begin
if key = vk_return then
PostMessage((Sender As TDbGrid).Handle,wm_keydown,vk_tab,0)
else if (ssShift in Shift) and (key = vk_Down) then
(Sender As TDbGrid).SelectedRows.CurrentRowSelected := true;
end;改一行就可以了。