改变字体即可。
procedure TForm1.Button1Click(Sender: TObject);
var
len:integer;
begin
canvas.Font.Name:='宋体';
canvas.Font.Size:=16;
Canvas.TextOut(0,0,'abcd');
len:=canvas.TextWidth('abcd');
canvas.Font.Size:=8;
canvas.TextOut(len,0,'2');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
len:integer;
begin
canvas.Font.Name:='宋体';
canvas.Font.Size:=16;
Canvas.TextOut(0,0,'abcd');
len:=canvas.TextWidth('abcd');
canvas.Font.Size:=8;
canvas.TextOut(len,0,'2');
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货