label 字体间距如何动态设置

Question

问题如题：label 字体间距如何动态设置啊，急啊，项目赶的急，就困在这里了

Answer 1

var
  Form1: TForm1;
  function newLabel(oldLabel: String; SpaceCount: Integer): String;implementation{$R *.dfm}function newLabel(oldLabel: String; SpaceCount: Integer): String;
var
  tmpStr, spaceStr: String;
  i: Integer;
begin
  tmpStr := '';
  spaceStr := '';
  for i := 1 to SpaceCount do
  begin
    spaceStr := spaceStr + ' ';
  end;
  for i := 1 to Length(OldLabel) do
  begin
    tmpStr := tmpStr + spaceStr + oldLabel[i];
  end;
  result := tmpStr;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  self.Label1.Caption := newLabel(self.Label1.Caption, 3);
end;

Answer 2

如果不用空格呢。windows里面不是有个调整字符间距的吗？

Answer 3

自己从TCustomLabel继承一个新的Label，增加一个字符间距属性，然后Override Paint方法自己输出文字。

Answer 4

tlabel有canves吧，用DrawText自己随便画,像素级控制