我想使用ascii或unicode字符集显示复选标记或勾号。我有以下代码
procedure InitializeWizard;
var
Value: Integer;
begin
Value:=10004
Msgbox('The character is'+chr(Value),mbinformation,mb_ok);
end;
但是不会显示该复选标记或对勾标记。
请在这上帮助我。
该CHECK MARK
字符在Unicode表中的UTF-16编码具有0x2713十六进制序数值,因此您可以这样编写:
[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
[Code]
procedure InitializeWizard;
var
C: Char;
begin
C := #$2713;
Msgbox('The character is: ' + C, mbInformation, MB_OK);
end;
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句