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

ilikenba

1.Label控件显示多行文本
  可以直接给Label的Caption属性赋给带有换行符或回车符的字符串！下面三个例子产生同样的效果：
2 [" v& U6 [2 s) l/ G% L9 r  Label1->Caption="第一行\n第二行\n第三行";
3 t5 R/ E( }% i$ s8 F6 u8 R6 A+ d  Label1->Caption="第一行\r第二行\r第三行";
# X1 }) y9 c2 c5 U- e  Label1->Caption="第一行\r\n第二行\r\n第三行";
5 L  g  J& Q) `9 c2 B5 u- ?  但注意这样赋多行的值只在运行的时候有效，在对Label的静态设计中，直接在Caption属性中输入
  "\r","\n"是没有用的，设计系统并没有对这些特殊字符作处理！
- ]+ {/ S9 g' p' u& O' H$ Z2.Label控件显示超长文本时自动换行
  只要对Label的两个属性进行修改。
  第一个是AutoSize,将它设为False,然后将Label的高度和宽度进行调整，适应要显示的区域！
  第二个是WordWrap,将它设为True。
/ r! H0 r1 H4 n6 b. J# `8 i/ _  注意对于英文的显示是以单词为单位的，即不能把一个单词分两行显示，即使已经到了边界了，
  这时的显示应以空格区分多个单词！
3.使Label控件上的文字纵向显示
  最直接的方法是改变字体的旋转度和方向！
/ u5 H6 O" ?% L( k% Q' T" E  下面这些代码实现了旋转的功能：
% U" ]: H: V& q  void __fastcall TForm1::Button1Click(TObject *Sender)
  {
" E% _! _! v5 z, A0 }' d. P    TFont *font;
( e+ Y$ _; N! u# ^1 s* J    LOGFONT logfont;
) K" A/ c; u( n. C; \    font=new TFont;
    font->Assign(Label1->Font);
    GetObject(font->Handle,sizeof(LOGFONT),&logfont);
    logfont.lfEscapement=-900;
    logfont.lfOrientation=-900;
# @' I/ ?# y: X/ k: }' S  K% K* b    font->Handle=CreateFontIndirect(&logfont);
% }6 s$ T4 Q" y+ |4 D7 r# F9 t- K    Label1->Font=font;
    delete font;
    Label1-&gt;Caption="矩阵论坛<a href="http://www.matrixstudio.org" target="_blank" >www.matrixstudio.org</A>";
* w3 O- b2 Z. B+ o' N2 |' G( j2 o  }
  这里要将Label的AutoSize设为False,然后将Label的高度和宽度进行调整，适应要显示的区域！
  将Alignment设为taCenter。
  
  还有一种纵向显示的方式，字体不用旋转，利用Label可以显示多行文本的方法，将标签要显示的
  Caption字符串进行分拆，变成多行文本。在进行分拆时，注意汉字是双字节的，分拆时要将汉字
  识别出来，整体分拆，否则会出现乱码！
  下面的代码实现了这个功能：
  void __fastcall TForm1::Button1Click(TObject *Sender)
- n% u# n3 i* j; t$ e. n9 R  {
* k1 h3 O! m# I* k" g! w7 m) e( Y    Label1-&gt;Caption=VString(Label1-&gt;Caption);
  }
$ j9 B/ [. H" ^6 J2 i( G  //---------------------------------------------------------------------------
% u" z7 F4 }  ]( \  AnsiString __fastcall TForm1::VString(AnsiString ss)
( h/ n% ]% H* G$ H6 E- f, s  {
    AnsiString ass;
5 m! O0 f8 {/ H; N5 b    int ii,ll;
    unsigned char cc;
  F3 S  z) p4 Z9 k1 z3 g  b8 S    ass="";
    ll=ss.Length();
; B) `  j( |6 A8 H+ k& a    for(ii=0;ii&lt;ll;ii++)
    {
7 K% Z2 a& @0 t1 v$ u0 i- ?7 n       cc=ss.c_str()[ii];
       if(cc&gt;0xa0)
       {
         ass=ass+ss.SubString(ii+1,2)+"\n";
         ii++;
7 L0 L; I0 Z+ V) b$ \       }
* L5 {' S0 S! x  `3 ^0 p$ t, `       else
3 S, }$ Z0 u& o- N       {
         ass=ass+ss.SubString(ii+1,1)+"\n";
       }
1 V1 [6 |: N. }$ I" m2 r5 V    }
$ H. y" t9 L& C  B' F5 ^2 u    return ass;
: d, Z0 H8 V, |2 ?; U1 ?' u  }
8 Q; t! @( B4 d+ P  这里要将Label的AutoSize设为False,然后将Label的高度和宽度进行调整，适应要显示的区域！
4.鼠标指向Label控件时改变说明文字的颜色
  通过Label的MouseMove事件，媒举所有控件，将名称和鼠标经过的控件相同的Label的字体颜色变成
" Z7 J: I' x, @, _5 u1 a  红色，其他的字体颜色变成黑色！
6 Q" {0 C1 ]2 G( o/ J8 e  A  下面的代码实现了这个功能：
  void __fastcall TForm1::Test(TObject *Sender)
  {
. t4 f4 p# k( C2 }: h8 }6 o    int i;
    TLabel *lb;
9 _- J! k+ i* C, j; [( B    AnsiString ss1,ss2;
$ c  P% H! h/ I3 d    ss1=Sender-&gt;ClassName();//获取参数的类型
6 U9 k* k. w5 X. C' u    if(ss1!="TLabel")return;//如果不是标签不处理
    lb=(TLabel*)Sender;
    ss1=lb-&gt;Name;
    for(i=0;i&lt;ControlCount;i++)
. u( G# {3 c  G5 c* }% h. U    {
2 \: k0 C, X, a2 p      lb=(TLabel *)Controls;
      ss2=lb-&gt;Name;
      if(ss1==ss2)
         lb-&gt;Font-&gt;Color=clRed;
- }# ~" i. E+ O1 v$ |3 b      else
; o! H9 [9 s$ E7 X         lb-&gt;Font-&gt;Color=clBlack;
    }
  }
+ \( k9 h5 d7 q- E7 m# K' [  //---------------------------------------------------------------------------
8 }. t* [) A8 D- S3 i  void __fastcall TForm1:abel1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
  {
0 D5 B, L, Y4 b( s4 g     Test(Sender);
  }