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

ilikenba

1.Label控件显示多行文本
  可以直接给Label的Caption属性赋给带有换行符或回车符的字符串！下面三个例子产生同样的效果：
  Label1->Caption="第一行\n第二行\n第三行";
  Label1->Caption="第一行\r第二行\r第三行";
  Label1->Caption="第一行\r\n第二行\r\n第三行";
  但注意这样赋多行的值只在运行的时候有效，在对Label的静态设计中，直接在Caption属性中输入
  "\r","\n"是没有用的，设计系统并没有对这些特殊字符作处理！
2.Label控件显示超长文本时自动换行
  只要对Label的两个属性进行修改。
  第一个是AutoSize,将它设为False,然后将Label的高度和宽度进行调整，适应要显示的区域！
  u+ n$ t. l# m5 U: |! F  第二个是WordWrap,将它设为True。
  注意对于英文的显示是以单词为单位的，即不能把一个单词分两行显示，即使已经到了边界了，
  这时的显示应以空格区分多个单词！
( [1 o% e+ p+ ]3.使Label控件上的文字纵向显示
6 L! d' L, |; J; P  最直接的方法是改变字体的旋转度和方向！
  下面这些代码实现了旋转的功能：
" q; F' W) R' l% ^9 t  void __fastcall TForm1::Button1Click(TObject *Sender)
  {
    TFont *font;
    LOGFONT logfont;
# j' q3 N/ @) k5 F+ L    font=new TFont;
7 O3 l+ d. L8 T    font->Assign(Label1->Font);
    GetObject(font->Handle,sizeof(LOGFONT),&logfont);
    logfont.lfEscapement=-900;
- @' |3 B7 e: u, o* X+ Q: s2 @    logfont.lfOrientation=-900;
    font->Handle=CreateFontIndirect(&logfont);
6 Q% i+ S3 Q: O    Label1->Font=font;
    delete font;
) O/ b3 l& a& _( B8 N- S    Label1-&gt;Caption="矩阵论坛<a href="http://www.matrixstudio.org" target="_blank" >www.matrixstudio.org</A>";
  }
: q1 e- T7 F' C  L4 p8 g! }  这里要将Label的AutoSize设为False,然后将Label的高度和宽度进行调整，适应要显示的区域！
/ B/ f- H$ w3 U+ j& A+ J& X- G  将Alignment设为taCenter。
  
- ?- K! V! D' R9 |/ V  还有一种纵向显示的方式，字体不用旋转，利用Label可以显示多行文本的方法，将标签要显示的
! @7 p3 T, b: Q  Caption字符串进行分拆，变成多行文本。在进行分拆时，注意汉字是双字节的，分拆时要将汉字
  识别出来，整体分拆，否则会出现乱码！
1 y  H& b% t) `9 F  下面的代码实现了这个功能：
, z/ Z/ r+ B3 M  Y* e  void __fastcall TForm1::Button1Click(TObject *Sender)
, D& M3 Q* O6 j  {
1 L! {; B! s) I% x' z    Label1-&gt;Caption=VString(Label1-&gt;Caption);
+ @; T+ o6 Y/ O+ B  }
0 c2 h$ a+ R! l/ R. j  //---------------------------------------------------------------------------
  AnsiString __fastcall TForm1::VString(AnsiString ss)
  {
. y6 E) L! r4 A% L; B: ~    AnsiString ass;
; c# l+ F  \- U8 ^9 K) O9 ^    int ii,ll;
    unsigned char cc;
( x' l" z+ ?1 ^# d. o# H9 r2 r5 Y    ass="";
3 {5 _# p" S2 u; w7 J    ll=ss.Length();
    for(ii=0;ii&lt;ll;ii++)
    {
       cc=ss.c_str()[ii];
       if(cc&gt;0xa0)
# H* W" ~. E$ \* K% q% A5 h       {
         ass=ass+ss.SubString(ii+1,2)+"\n";
         ii++;
  a( U2 m8 g- D: ^       }
9 Q4 t7 v& ?! u1 \0 M' G( B5 B3 O8 `* }       else
$ I6 C% ]7 h) J$ D1 u" d       {
3 N+ Q1 r% K7 G7 e8 s" g% f         ass=ass+ss.SubString(ii+1,1)+"\n";
4 [% I* @  o: `6 j0 i3 Z7 ]       }
    }
    return ass;
  }
  这里要将Label的AutoSize设为False,然后将Label的高度和宽度进行调整，适应要显示的区域！
4.鼠标指向Label控件时改变说明文字的颜色
, Z5 E$ e3 z4 Z7 e3 a: G1 S  通过Label的MouseMove事件，媒举所有控件，将名称和鼠标经过的控件相同的Label的字体颜色变成
+ O6 \9 S1 x7 b* Y6 ~3 U5 k  红色，其他的字体颜色变成黑色！
7 X2 v3 `% j- R  U6 U  下面的代码实现了这个功能：
5 v: i+ k6 f2 v7 t9 X2 E  void __fastcall TForm1::Test(TObject *Sender)
  {
    int i;
8 F8 z( U! ]* A# M$ N! q6 s    TLabel *lb;
    AnsiString ss1,ss2;
/ }3 V- O% d) i! v$ ]+ f    ss1=Sender-&gt;ClassName();//获取参数的类型
    if(ss1!="TLabel")return;//如果不是标签不处理
    lb=(TLabel*)Sender;
    ss1=lb-&gt;Name;
    for(i=0;i&lt;ControlCount;i++)
7 ?5 h: E/ ?; s4 M    {
      lb=(TLabel *)Controls;
      ss2=lb-&gt;Name;
      if(ss1==ss2)
: l+ u3 k* _5 ?% g         lb-&gt;Font-&gt;Color=clRed;
      else
5 m  A" x1 S, X* w; n  \         lb-&gt;Font-&gt;Color=clBlack;
1 t9 I4 u2 e) K7 A( |    }
9 K" P/ z* A/ A+ s* d" W( v  }
* X$ }6 G; b: k: n  //---------------------------------------------------------------------------
5 R) b& X' x) A* r" a9 T, _  void __fastcall TForm1:abel1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
  {
& y3 _6 U. e" }4 N0 b     Test(Sender);
  }