修改各个组件的 TabOrder 属性(从0开始)。
procedure TBaseF.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
begin
PostMessage(TEdit(Sender).Handle,WM_KEYDOWN,VK_TAB,0);
end;
end;
修改各组件的 TabOrder 属性,从0开始往后递推
修改各个组件的 TabOrder 属性(从0开始)。