[分享]消除回车登陆平台的嘣嘣声音

lixy

简洁风格\界面库\窗体库\系统登录对话框
procedure TSYSTEMLOGINDIALOG.edtEditKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    key:=#0;  //消除嘣嘣声音
    Logon(True);
  end;
end;