procedure Tfmlogin.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
key:=#0;
perform(wm_nextdlgctl,0,0);
end;
end;
begin
if key=#13 then
begin
key:=#0;
perform(wm_nextdlgctl,0,0);
end;
end;
转移焦点（delphi）
最新推荐文章于 2020-08-20 18:02:08 发布
扫一扫
245
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
