转移焦点(delphi)

procedure Tfmlogin.FormKeyPress(Sender: TObject; var Key: Char); begin       if key=#13 then     begin       key:=#0;       perform(wm_nextdlgctl,0,0);     end; end;
相关文章
相关标签/搜索