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

ilikenba

1.Label控件显示多行文本
  可以直接给Label的Caption属性赋给带有换行符或回车符的字符串！下面三个例子产生同样的效果：
  Label1->Caption="第一行\n第二行\n第三行";
  Label1->Caption="第一行\r第二行\r第三行";
* K1 ~* _( n. w" c: z* F  Label1->Caption="第一行\r\n第二行\r\n第三行";
/ u" V! [/ Q: j" |1 O9 \0 d  但注意这样赋多行的值只在运行的时候有效，在对Label的静态设计中，直接在Caption属性中输入
  "\r","\n"是没有用的，设计系统并没有对这些特殊字符作处理！
# M3 ]8 L7 `  [/ N2.Label控件显示超长文本时自动换行
  只要对Label的两个属性进行修改。
; \4 H* `: e& {  第一个是AutoSize,将它设为False,然后将Label的高度和宽度进行调整，适应要显示的区域！
  第二个是WordWrap,将它设为True。
  注意对于英文的显示是以单词为单位的，即不能把一个单词分两行显示，即使已经到了边界了，
  这时的显示应以空格区分多个单词！
3.使Label控件上的文字纵向显示
7 q7 v9 J* s9 r; U; `2 Z  最直接的方法是改变字体的旋转度和方向！
  下面这些代码实现了旋转的功能：
1 Z) W6 o% |! b) k6 c! _+ A# A  void __fastcall TForm1::Button1Click(TObject *Sender)
. A$ k9 k4 C8 [- {- \% F8 w% v% S  {
( l$ a, r0 I# e: n' k1 G    TFont *font;
& V' R/ o- [, w# i  U6 {    LOGFONT logfont;
( ]3 v) n+ H9 A- P" ~8 R( I    font=new TFont;
    font->Assign(Label1->Font);
    GetObject(font->Handle,sizeof(LOGFONT),&logfont);
9 D# S! p2 b% P- _! A    logfont.lfEscapement=-900;
5 V; f; H; o7 Y+ h    logfont.lfOrientation=-900;
% w- o2 V2 Z- F$ n" k$ U4 p+ X    font->Handle=CreateFontIndirect(&logfont);
0 }5 j' r1 ?  R/ @    Label1->Font=font;
5 r% j% Z( Q; S& F    delete font;
; N/ l0 J- U. W5 f! G5 G    Label1-&gt;Caption="矩阵论坛<a href="http://www.matrixstudio.org" target="_blank" >www.matrixstudio.org</A>";
  M5 D% q: H* Q# F/ s% N3 _" i  }
  这里要将Label的AutoSize设为False,然后将Label的高度和宽度进行调整，适应要显示的区域！
  将Alignment设为taCenter。
  
  还有一种纵向显示的方式，字体不用旋转，利用Label可以显示多行文本的方法，将标签要显示的
  Caption字符串进行分拆，变成多行文本。在进行分拆时，注意汉字是双字节的，分拆时要将汉字
0 p) o6 f; Q% e# d  识别出来，整体分拆，否则会出现乱码！
  下面的代码实现了这个功能：
  void __fastcall TForm1::Button1Click(TObject *Sender)
, p3 L0 O4 }7 |& A  H: }  {
    Label1-&gt;Caption=VString(Label1-&gt;Caption);
) P, u7 ?9 m4 ?7 F  E/ |  }
+ y$ k" u& q: B& F0 z7 N  //---------------------------------------------------------------------------
/ z7 c0 b( L; t7 n( J5 b  AnsiString __fastcall TForm1::VString(AnsiString ss)
& ], |% G% N* \7 a/ ~3 ]  {
' \! U7 s0 x: Q0 E, W    AnsiString ass;
) T' u- c$ Y. y5 Z- I% s" C" [* C    int ii,ll;
    unsigned char cc;
0 R3 {0 o" _( i5 F" B, [3 w' r, c: d    ass="";
: }0 O9 _! I7 l2 ^; _    ll=ss.Length();
    for(ii=0;ii&lt;ll;ii++)
    {
       cc=ss.c_str()[ii];
       if(cc&gt;0xa0)
/ \7 B! B0 X- W7 V2 N# S3 f       {
         ass=ass+ss.SubString(ii+1,2)+"\n";
2 E  J# @# C, q) Q* I+ l1 R         ii++;
! z3 w9 o# y+ c7 ?1 ]" L$ ~       }
       else
1 P  P5 j- V0 E9 w8 \8 c       {
         ass=ass+ss.SubString(ii+1,1)+"\n";
       }
) ?0 R" [1 Q& d8 Z8 T    }
, E# `& ~5 I" |1 C. R    return ass;
% R( l" l; w8 h6 v! I: |7 b5 u) c2 T  }
  这里要将Label的AutoSize设为False,然后将Label的高度和宽度进行调整，适应要显示的区域！
4.鼠标指向Label控件时改变说明文字的颜色
  通过Label的MouseMove事件，媒举所有控件，将名称和鼠标经过的控件相同的Label的字体颜色变成
- m! s! N, a% `' \  红色，其他的字体颜色变成黑色！
  下面的代码实现了这个功能：
- Z2 G( w( S( `% x0 W  void __fastcall TForm1::Test(TObject *Sender)
  {
! a3 c" T& U9 v4 K( m    int i;
    TLabel *lb;
0 `$ g# d/ p7 Q9 q    AnsiString ss1,ss2;
    ss1=Sender-&gt;ClassName();//获取参数的类型
    if(ss1!="TLabel")return;//如果不是标签不处理
. A/ r/ `, s. D9 B    lb=(TLabel*)Sender;
    ss1=lb-&gt;Name;
    for(i=0;i&lt;ControlCount;i++)
0 ?7 g' V9 y4 P. }/ h4 D    {
      lb=(TLabel *)Controls;
      ss2=lb-&gt;Name;
      if(ss1==ss2)
9 z3 V" t" l- l- ]9 ~/ s         lb-&gt;Font-&gt;Color=clRed;
/ N$ R( [4 l* g  e* F      else
) g/ x) o$ b+ `4 i1 d( }         lb-&gt;Font-&gt;Color=clBlack;
2 d, R" a& p, }9 d    }
# Y* W4 z; \8 R/ z7 v% M* C& l* Q  }
  //---------------------------------------------------------------------------
5 m& o% ~& ^, s( r7 J  void __fastcall TForm1:abel1MouseMove(TObject *Sender, TShiftState Shift,
' Y- _( H* X6 g" E% h: \: x1 v      int X, int Y)
$ ]+ E, b' {: ]1 }/ t" i+ Z  {
  q! \1 H5 K* \     Test(Sender);
  }