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

ilikenba

1.Label控件显示多行文本
  可以直接给Label的Caption属性赋给带有换行符或回车符的字符串！下面三个例子产生同样的效果：
  Label1->Caption="第一行\n第二行\n第三行";
1 Y" y$ t7 ]- a$ u* H7 V  Label1->Caption="第一行\r第二行\r第三行";
  Label1->Caption="第一行\r\n第二行\r\n第三行";
! e" W7 K0 j3 z- T+ S2 x  但注意这样赋多行的值只在运行的时候有效，在对Label的静态设计中，直接在Caption属性中输入
5 Q. ^6 e1 k. Q8 [2 D) P3 `1 E  "\r","\n"是没有用的，设计系统并没有对这些特殊字符作处理！
$ N. q4 A, o  ~' K2.Label控件显示超长文本时自动换行
  只要对Label的两个属性进行修改。
  第一个是AutoSize,将它设为False,然后将Label的高度和宽度进行调整，适应要显示的区域！
  第二个是WordWrap,将它设为True。
  注意对于英文的显示是以单词为单位的，即不能把一个单词分两行显示，即使已经到了边界了，
! l1 u1 w3 {4 Z/ e+ }' o2 ^. J  这时的显示应以空格区分多个单词！
3.使Label控件上的文字纵向显示
  最直接的方法是改变字体的旋转度和方向！
  下面这些代码实现了旋转的功能：
$ g' E! F" [+ ~/ Z( ^: y" A  Z* G  void __fastcall TForm1::Button1Click(TObject *Sender)
/ b' l; A5 K5 K. e# k6 f$ F  {
5 M3 U) D& w5 [# g. W. l0 m, [    TFont *font;
    LOGFONT logfont;
- R' s) ?) L7 Y    font=new TFont;
    font->Assign(Label1->Font);
7 \& O$ g$ j& }3 G) P9 V% V7 U; i    GetObject(font->Handle,sizeof(LOGFONT),&logfont);
7 p; P$ \* Y0 x    logfont.lfEscapement=-900;
  u' _7 g& c! n0 b) ~    logfont.lfOrientation=-900;
, s* R- X; e) G, I+ q2 g3 T    font->Handle=CreateFontIndirect(&logfont);
    Label1->Font=font;
    delete font;
( j" q6 ]& h$ v2 Y8 |: z) F    Label1-&gt;Caption="矩阵论坛<a href="http://www.matrixstudio.org" target="_blank" >www.matrixstudio.org</A>";
  }
  这里要将Label的AutoSize设为False,然后将Label的高度和宽度进行调整，适应要显示的区域！
# m3 O4 Z1 Y& h6 P  将Alignment设为taCenter。
  
( e/ S; Q3 d+ J, `3 i% H  还有一种纵向显示的方式，字体不用旋转，利用Label可以显示多行文本的方法，将标签要显示的
8 Z/ j4 j4 @4 p6 r% D* e+ s  Caption字符串进行分拆，变成多行文本。在进行分拆时，注意汉字是双字节的，分拆时要将汉字
  识别出来，整体分拆，否则会出现乱码！
6 ]: x# Y# E$ C! C& e3 Y0 J/ o  下面的代码实现了这个功能：
  void __fastcall TForm1::Button1Click(TObject *Sender)
  {
  _& z% D% m& K    Label1-&gt;Caption=VString(Label1-&gt;Caption);
' C) z/ g1 B+ ^5 U4 q0 F) a  i  p  }
9 M# q' K) d! y- s1 s9 `  //---------------------------------------------------------------------------
  AnsiString __fastcall TForm1::VString(AnsiString ss)
% ]- f1 v* I5 T  C) c  {
' k/ }% p$ x( @' X. }) m    AnsiString ass;
9 f: \$ V+ r0 a8 G    int ii,ll;
) [0 ]' P* V: w; T* B2 T    unsigned char cc;
    ass="";
" t+ y! Y% s( p' {/ y' r    ll=ss.Length();
- B/ J9 E- N2 S' R* v1 n" u5 s. g    for(ii=0;ii&lt;ll;ii++)
0 t3 w! `5 o5 Q$ v8 P    {
7 y/ r& u2 n4 U* y2 |2 T       cc=ss.c_str()[ii];
       if(cc&gt;0xa0)
% y% m, U- s, Z& Q: x       {
         ass=ass+ss.SubString(ii+1,2)+"\n";
         ii++;
3 _! q* S. g7 i2 L$ |/ r       }
, t8 y2 n/ W1 \5 w' y       else
5 w0 g' J! i% u3 y       {
3 C: F/ @& s/ @2 n1 h7 Z         ass=ass+ss.SubString(ii+1,1)+"\n";
5 q( r  A5 P: A5 n4 ^       }
    }
    return ass;
  }
. [: M, ?0 x- ~: z" m* }  这里要将Label的AutoSize设为False,然后将Label的高度和宽度进行调整，适应要显示的区域！
  h5 N: W. W5 v9 v! R4.鼠标指向Label控件时改变说明文字的颜色
$ N2 t! }( X, G  通过Label的MouseMove事件，媒举所有控件，将名称和鼠标经过的控件相同的Label的字体颜色变成
  红色，其他的字体颜色变成黑色！
  下面的代码实现了这个功能：
  void __fastcall TForm1::Test(TObject *Sender)
  {
    int i;
3 @; M* r+ w0 W. V' ?3 V7 D; G% B    TLabel *lb;
    AnsiString ss1,ss2;
    ss1=Sender-&gt;ClassName();//获取参数的类型
    if(ss1!="TLabel")return;//如果不是标签不处理
    lb=(TLabel*)Sender;
  j4 N$ A, u" g2 O5 b    ss1=lb-&gt;Name;
; Y. f! S/ l( G: K& P0 r    for(i=0;i&lt;ControlCount;i++)
  ]) I5 X1 N- O: S# P4 O    {
* ]3 s" I0 x1 L$ ?3 F& m1 ^      lb=(TLabel *)Controls;
# f3 ?5 H  A- R+ V      ss2=lb-&gt;Name;
      if(ss1==ss2)
         lb-&gt;Font-&gt;Color=clRed;
      else
" c1 l6 u' F/ ]         lb-&gt;Font-&gt;Color=clBlack;
4 |1 U6 B! S) X5 J, m0 Y3 ~' Q    }
" k0 Z# p" }0 p* Q# e: k/ K0 f$ B% H  }
  //---------------------------------------------------------------------------
  void __fastcall TForm1:abel1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
  {
     Test(Sender);
: x3 F( u# c, n  }