Delphi 询问框 汉化

Delphi 询问框 汉化

d:\program files (x86)\embarcadero\studio\17.0\source\fmx\FMX.Consts.pas

add this file to current project,compile ok!

{ Dialog Strings }
SMsgDlgWarning = 'Warning';
SMsgDlgError = 'Error';
SMsgDlgInformation = 'Information';
SMsgDlgConfirm = 'Confirm';
SMsgDlgYes = 'Yes';
SMsgDlgNo = 'No';
SMsgDlgOK = 'OK';
SMsgDlgCancel = 'Cancel';
SMsgDlgHelp = 'Help';
SMsgDlgHelpNone = 'No help available';
SMsgDlgHelpHelp = 'Help';
SMsgDlgAbort = 'Abort';
SMsgDlgRetry = 'Retry';
SMsgDlgIgnore = 'Ignore';
SMsgDlgAll = 'All';
SMsgDlgNoToAll = 'No to All';
SMsgDlgYesToAll = 'Yes to &All';
SMsgDlgClose = 'Close';

改成

SMsgDlgWarning = '警告';

SMsgDlgError = '错误';

SMsgDlgInformation = '提示';

SMsgDlgConfirm = '确认';

SMsgDlgYes = '是(&Y)';

SMsgDlgNo = '不(&N)';

SMsgDlgOK = '确定';

SMsgDlgCancel = '取消';

SMsgDlgHelp = '帮助(&H)';

SMsgDlgHelpNone = '没有该帮助信息';

SMsgDlgHelpHelp = '帮助';

SMsgDlgAbort = '放弃(&A)';

SMsgDlgRetry = '重试(&R)';

SMsgDlgIgnore = '忽略(&I)';

SMsgDlgAll = '全部(&A)';

SMsgDlgNoToAll = '全都不(&O)';

SMsgDlgYesToAll = '全都是(&A)';

然后重新编译Consts.pas,把Consts.duc