调整一下字段顺序age->name->sex->address->
然后
procedure TForm2.DBGridEh1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#9 then
sendmessage(Dbgrideh1.handle,WM_KEYDOWN,VK_tab,0);
end;
然后
procedure TForm2.DBGridEh1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
sendmessage(Dbgrideh1.handle,WM_KEYDOWN,VK_tab,0);
end;
如果不调整顺序可以在发送消息的时候模拟左方向箭多次就可以了.