『delphi』Enter键移动焦点的效果

procedure Tlogin.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_return then
    FindNextControl(ActiveControl,true,false,false).SetFocus;
end;

end.
其他的的KeyDown选中Edit1的就可以了 

好的代码像粥一样，都是用时间熬出来的
【推广】 免费学中医，健康全家人
原文地址：https://www.cnblogs.com/jijm123/p/13767105.html