Label的使用技巧（由ilikenba收集、整理、调试通过）

ilikenba

1.Label控件显示多行文本
  可以直接给Label的Caption属性赋给带有换行符或回车符的字符串！下面三个例子产生同样的效果：
3 ]/ x5 }! F& g7 `$ q! @- b$ R6 M& V  Label1->Caption="第一行\n第二行\n第三行";
9 K1 N) j" p- e2 E: R( X  Label1->Caption="第一行\r第二行\r第三行";
! M; O1 M6 |& J, I# ]0 ?, v7 Q; O  Label1->Caption="第一行\r\n第二行\r\n第三行";
  但注意这样赋多行的值只在运行的时候有效，在对Label的静态设计中，直接在Caption属性中输入
0 p! |* a1 j5 e1 v+ C4 ]/ s1 I, @  _  "\r","\n"是没有用的，设计系统并没有对这些特殊字符作处理！
2.Label控件显示超长文本时自动换行
  只要对Label的两个属性进行修改。
# L3 s  _) v/ }8 S  第一个是AutoSize,将它设为False,然后将Label的高度和宽度进行调整，适应要显示的区域！
8 _& N* M4 u" t* T- R  第二个是WordWrap,将它设为True。
. F. w( L3 y3 z" m$ O  注意对于英文的显示是以单词为单位的，即不能把一个单词分两行显示，即使已经到了边界了，
  这时的显示应以空格区分多个单词！
. g4 w; [8 C9 d0 ~, B- _3.使Label控件上的文字纵向显示
3 G, v$ k3 m. v  最直接的方法是改变字体的旋转度和方向！
- Y1 L$ k. J6 F5 j: H6 \3 `  下面这些代码实现了旋转的功能：
  void __fastcall TForm1::Button1Click(TObject *Sender)
- z1 U2 O5 x: @: ]: ~  {
' Z" \1 L. k; ^5 F9 I    TFont *font;
# [/ i6 ^7 A; a- Q4 r' P# r    LOGFONT logfont;
! C9 J/ k+ w0 g5 v# B1 `# P% {* t    font=new TFont;
( e6 x) a% J8 I/ N( h    font->Assign(Label1->Font);
" B& N9 J4 _2 K3 h: S1 C! q4 q    GetObject(font->Handle,sizeof(LOGFONT),&logfont);
4 c/ L0 J, F4 |2 q6 y    logfont.lfEscapement=-900;
# m6 {/ H5 S) {0 H8 I9 J4 w    logfont.lfOrientation=-900;
" Z4 i* E2 i) q  Z    font->Handle=CreateFontIndirect(&logfont);
4 }' G( {" [$ i; \0 V    Label1->Font=font;
    delete font;
& G2 I6 ~. g0 [    Label1-&gt;Caption="矩阵论坛<a href="http://www.matrixstudio.org" target="_blank" >www.matrixstudio.org</A>";
  }
. i2 u. d3 S& K& M  这里要将Label的AutoSize设为False,然后将Label的高度和宽度进行调整，适应要显示的区域！
  将Alignment设为taCenter。
! _0 c' S8 O" k7 W  
  还有一种纵向显示的方式，字体不用旋转，利用Label可以显示多行文本的方法，将标签要显示的
6 x4 }  k& h, T% h; w  Caption字符串进行分拆，变成多行文本。在进行分拆时，注意汉字是双字节的，分拆时要将汉字
  R% ~! c- X' ?1 ]  识别出来，整体分拆，否则会出现乱码！
) g+ q; K/ f3 N( t+ ]- A7 z  下面的代码实现了这个功能：
  void __fastcall TForm1::Button1Click(TObject *Sender)
  {
$ ~1 b, N# t; C: F    Label1-&gt;Caption=VString(Label1-&gt;Caption);
0 B* K; h! q% V  a/ y  }
  //---------------------------------------------------------------------------
  AnsiString __fastcall TForm1::VString(AnsiString ss)
  {
    AnsiString ass;
    int ii,ll;
6 t1 k7 U7 z5 ?, B: z* ?    unsigned char cc;
2 a) m. y% ]; i: Q- k2 f/ [, G    ass="";
- O. b- m% p( ^0 [    ll=ss.Length();
& c# H& c! c+ V# x5 T+ q    for(ii=0;ii&lt;ll;ii++)
    {
! ~! x7 S5 P5 l) }8 s! s5 x8 ]* I       cc=ss.c_str()[ii];
       if(cc&gt;0xa0)
       {
* y  H9 ~7 ~3 o+ K" l         ass=ass+ss.SubString(ii+1,2)+"\n";
% Q+ D: o' z7 {$ p5 X9 Q' F         ii++;
7 N" T0 Y1 U/ b( Q% r, A       }
7 H. ^' t" b4 d$ V; ?0 E) I8 M4 a5 {/ T, ?       else
       {
         ass=ass+ss.SubString(ii+1,1)+"\n";
1 s& S2 Q/ N" w8 B% H. P$ G& E       }
6 o6 P5 A2 A& g# O    }
    return ass;
$ O2 O/ u" W0 J4 G8 M9 Y( h- w  }
  这里要将Label的AutoSize设为False,然后将Label的高度和宽度进行调整，适应要显示的区域！
4 f& p& A) D6 Y4.鼠标指向Label控件时改变说明文字的颜色
  通过Label的MouseMove事件，媒举所有控件，将名称和鼠标经过的控件相同的Label的字体颜色变成
, J6 K' i. M/ ~: D  红色，其他的字体颜色变成黑色！
2 n. }+ a0 p% O! t+ {  下面的代码实现了这个功能：
  void __fastcall TForm1::Test(TObject *Sender)
  {
6 R) f( s( w% \* U3 L    int i;
/ s( N, ?9 d9 `0 q! n6 g    TLabel *lb;
    AnsiString ss1,ss2;
9 L* i: I( G* ?1 v' O# y) S6 D    ss1=Sender-&gt;ClassName();//获取参数的类型
    if(ss1!="TLabel")return;//如果不是标签不处理
    lb=(TLabel*)Sender;
" x, `5 e- `8 i4 H2 D0 C    ss1=lb-&gt;Name;
) n) K% X+ C: f# |    for(i=0;i&lt;ControlCount;i++)
( `( \+ Q3 k. Z* E9 W1 K  l0 o5 D    {
      lb=(TLabel *)Controls;
      ss2=lb-&gt;Name;
      if(ss1==ss2)
* ^7 e( B8 o' j! E( T- a* T& m         lb-&gt;Font-&gt;Color=clRed;
( }1 P5 ]4 c; ]7 H: o& l      else
         lb-&gt;Font-&gt;Color=clBlack;
    }
  }
! k2 P2 ]8 k/ y' o  //---------------------------------------------------------------------------
  void __fastcall TForm1:abel1MouseMove(TObject *Sender, TShiftState Shift,
/ z4 n/ `0 u3 {* J( X3 C      int X, int Y)
0 j9 V$ o) s8 ?3 G# D: I; `  {
' e' R" \2 K) J5 l; J6 j; |5 K" T     Test(Sender);
  }