请问如何将label的字打竖显示???

Question

如label默认显示的字为:
控件
如何把它显示为:
控
件
thank!

Answer 1

没用过，不过，用两个LABEL就可以了：D
一个装控，一个装件。

Answer 2

label.wordwrap:=true;
label.autosize:=false;
label.caption:='控'+#13+'件';

Answer 3

对不起，应该是label.autosize:=true;

Answer 4

label.autosize:=false;
label.caption:='控'+#13#10+'件';

Answer 5

label.caption := '我'#13'爱'#13'你';————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 6

楼上的这些方法好像不行吗！我试过了，只要把
Lable1.wordwrap := True,再把lable1的宽度设为一个字的宽度，就可以了！

Answer 7

你试一下我的方法看行不行。我是行的。
不过不是用label.caption来实现的，是用画上去的。
procedure TForm1::Button1Click(Sender: TObject);
var
  lf: LOGFONT; // Windows native font structure
begin
  Canvas.Brush.Style := bsClear; // set the brush style to transparent
  FillChar(lf, SizeOf(lf), Byte(0));
  lf.lfHeight := 20;
  lf.lfEscapement := 10 * 45; // 这里你可以旋转任意的角度，我是旋转45度。
  lf.lfCharSet := DEFAULT_CHARSET;
  StrCopy(lf.lfFaceName, '宋体');  Canvas.Font.Handle := CreateFontIndirect(lf);  Canvas.TextOut(10, 100, ‘控件’); // output the rotated font
end;

Answer 8

楼上的这些方法好像不行吗！我试过了，只要把
Lable1.wordwrap := True,再把lable1的宽度设为一个字的宽度，就可以了似的！

Answer 9

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  LogicFont :TagLogFontA;
  //逻辑字体
  TempFont,PrevFont :HFONT;
  //字体句柄
  TempDC :HDC;
  //图形设备句柄
begin
  LogicFont.lfHeight := 70;
  //设置字高
  LogicFont.lfWidth := 40;
  //设置字宽
  LogicFont.lfWeight := 10;
  //设置字体笔划粗细程度
  LogicFont.lfUnderline := 0;
  //设置下划线为没有
  LogicFont.lfStrikeOut := 0;
  //设置没有删除线
  LogicFont.lfItalic := 0;
  //设置不为斜体
  LogicFont.lfCharSet := GB2312_CHARSET;
  //设置字符集
  LogicFont.lfEscapement := -StrToInt(Edit2.Text)*10;
  LogicFont.lfOrientation := -StrToInt(Edit2.Text)*10;
  //设置顺时针方向与X轴的夹角
  LogicFont.lfFaceName := '宋体';
  //设置字体名称
  TempFont := CreateFontIndirect(LogicFont);
  //创建逻辑字体
  TempDC := GetDC(Handle);
  //取得窗口的设备句柄
  PrevFont := SelectObject(TempDC, TempFont);
  //取出窗口设备的当前字体，并替换为新字体
  SetTextColor(TempDC, clBlue);
  //设置设备窗口的文字色彩
  SetBkMode(TempDC,TRANSPARENT);
  //去掉文字白底
  TextOut(TempDC, StrToInt(Edit3.Text), StrToInt(Edit4.Text), PChar(Edit1.Text), Length(Edit1.Text));
  //输出文字
  SelectObject(TempDC, PrevFont);
  //恢复原有的字体
  DeleteObject(TempFont);
  //删除逻辑字体
  ReleaseDC(Handle, TempDC);
  //释放设备接口
end;
end.试试这个好用不。。这是我从虽的地方找来的~!

Answer 10

直接在.dfm文件中设置Caption = '控'+#13#10+'件'，感觉是否意外？？？