我做一个登录窗口,后来使用不方便,又加了一段代码:
procedure TfrmLogon.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #$1b then Close;
if key=#13 then
begin
key:=#0;
perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
end;end;
可还不能向下,谢谢!
procedure TfrmLogon.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #$1b then Close;
if key=#13 then
begin
key:=#0;
perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
end;end;
可还不能向下,谢谢!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货