在线等：看似简单的问题：关于Label控件，解决不解决都给分，解决了还将加分！！

Question

Label控件的文字一般是从左到右形式的，现在我想让它从上到下！！
这有何方法吗？
如果有其它的控件实现也是可以的，不过我要求控件也能透明！！
高手指点呀！

Answer 1

我看过别人用几个label控件从上到下排列起来，不知道符合你的要求不

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
 var
 str:string;
begin
    str:='我'+#13+'想'+#13+'起'+#13+'来'+#13+'了';
    label1.Caption:=str;
end;end.

Answer 3

用Raize控件包中的TRzLabel，不仅可以旋转文字，而且还有凸起、阴影等特效，当然是支持透明的。
http://www.delphifans.com/SoftView/SoftView_1867.html

Answer 4

不写程序，
放一个Label到form中，在form中按右键，选择View as Text
你会看到如下的代码
...
...
...
  object Label2: TLabel
    Left = 260
    Top = 112
    Width = 32
    Height = 13
    Caption = 'Label1'
...
...
在这儿把Caption = 'Label1' 改为　Caption = 'L'#13'a'#13'b'#13'e'#13'l'
再按Alt+F12回到设计的form，你会看到这个label在设计阶段就已是竖着排的了

Answer 5

方法１:
procedure TForm1.Button1Click(Sender: TObject);
var
 aStr: String;
begin
  Transparent := True;
  aStr := '现'#13'在'#13'它'#13'是'#13'从'#13'上'#13'到'#13'下';
  Label1.Caption := aStr;
end;
方法２:
1.) 在Form中添加Label
2.) 设置Label的Transparent := True
3.) 在Form任意位置按鼠标右键，然后选择 View as Text 菜单;
4.) 将Label更改为:
object Label1: TLabel
  Left = 36
  Top = 10
  Width = 12
  Height = 104
  Caption = '现'#13'在'#13'它'#13'是'#13'从'#13'上'#13'到'#13'下'
  Transparent = True
  Layout = tlCenter
end

Answer 6

Label1.wordwrap := true;
把Label1宽度缩小到一个字符,高度增加到需要

Answer 7

TO: cnhxjtoa(我的主页http://www.Csina.com.cn)等你装过Raize组件包，你就会喜欢它了，它还包括很多其他的界面增强组件，都很美观实用，而且风格一致。

Answer 8

label 有个属性wordwrap 设置为true
然后
把你的label的宽度设置成一个字的宽度,就能看到效果了
就OK