怎样把Label控件竖着放？

Question

一般Label都是横着放的，怎样把Label控件竖着放？

Answer 1

你的意思是否是将LABEL中的文字竖着放？

Answer 2

你的意思是否是将LABEL中的文字竖着放？

Answer 3

把她拉长,拉窄,然后将AutoSize设置为False,AutoStretch设置为True

Answer 4

方法一：
var st:string;
st:=chr(13)+chr(10);//chr(10) 或chr(13)也可
label1.caption:='这'+st+'是'+st+'你'+st+'想'+st+'要'+st+'得'+st+'吗';方法二:
procedure TForm1.FormShow(Sender: TObject);
var i:integer;     //  在设计时label1.visible:=true
   st,st1:string;
begin
st:=label1.caption;//:=copy('abc',1,1);
st1:='';
for i:=1 to length(st) do
st1:=st1+copy(st,i,1)+chr(13);
label1.Caption:= st1;
label1.Visible :=true;
end;

Answer 5

把她拉长,拉窄,然后将AutoSize设置为False,AutoStretch设置为True

Answer 6

//  在设计时label1.visible:=true
改为
//  在设计时label1.visible:=false;
方法二可不用考虑 AutoSize、AutoStrech等

Answer 7

不是，比如说输入running,输入后是横着显示的，如果把它变成竖显就是
r
u
n
n
i
n
g
这样就看不出是单词running了，我是希望可以将running逆时针旋转90度显示

Answer 8

Label1.Caption:='一'+#13+#10
               +'二'+#13+#10
                .......;

Answer 9

Label1.Font.Name:='@Fixedsys';
  Label1.Caption:='的'+#13'要'+#13'想'+#13'你'+#13'是'+#13'才'+#13'这';
只对中文有效

Answer 10

procedure TextOutAngle(x,y,aAngle,aSize:integer;txt:string);
var hFont,Fontold:integer;
DC:hdc;
Fontname:string;
begin
if length(txt)=0 then
EXIT;
DC:=Screen.ActiveForm.Canvas.handle;
SetBkMode(DC,transparent);
Fontname:=Screen.ActiveForm.Canvas.Font.Name;
hFont:=CreateFont(-aSize,0,aAngle*10,0,fw_normal,0,0,
0,1,4,$10,2,4,PChar(Fontname));
Fontold:=SelectObject(DC,hFont);
TextOut(DC,x,y,PChar(txt),length(txt));
SelectObject(DC,Fontold);
DeleteObject(hFont);
end;
这可以在指定处输出文本，aAngle：角度；aSize：文字大小