求：制作Delphi的竖排标签的例程

Question

诸位前辈：求：制作Delphi的竖排标签的例程，谢了！！！

Answer 1

1lstClass的fcLabel是开源的，TfcText.Draw 可以参考。

Answer 2

其实很简单procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  s:string;
begin
  s:='';
  Randomize;
  for i:=0 to 10 do
    s:=s+chr(65+Random(26))+chr(13);
//  ShowMessage(s);
  Label1.Caption:=s;
  Label1.Refresh;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.AutoSize:=False;
  Label1.WordWrap:=true;
  Label1.Width:=50;
  Label1.Height:=300;
end;

Answer 3

哦，改成这样更好procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.AutoSize:=true;
  Label1.WordWrap:=true;
end;