如题

？复制

那是utf8才能显示，自己转

自己结贴了，
只能在画布上显示，文本框等还是显示不出来
VAR S:WideString;
begin
S := '?';
Word(S[1]) := 174;
S:=S+'AAA';
Canvas.Font.Name := '宋体 ';
Canvas.Font.Size := 16;
img1.Canvas.Font.Size:=20;
ExtTextOutW(Canvas.Handle, 0, 0, 0, nil, PWideChar(S), Length(S), nil);