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

ilikenba

1.Label控件显示多行文本
* {' p+ a5 |) h1 y3 i0 S3 U, K  可以直接给Label的Caption属性赋给带有换行符或回车符的字符串！下面三个例子产生同样的效果：
  Label1->Caption="第一行\n第二行\n第三行";
  Label1->Caption="第一行\r第二行\r第三行";
  Label1->Caption="第一行\r\n第二行\r\n第三行";
  q1 @  o: _# f4 F  但注意这样赋多行的值只在运行的时候有效，在对Label的静态设计中，直接在Caption属性中输入
0 M, s: G! q. U% k! s  "\r","\n"是没有用的，设计系统并没有对这些特殊字符作处理！
9 C$ A: C$ U5 u2.Label控件显示超长文本时自动换行
( u# W3 E) v; p1 S  只要对Label的两个属性进行修改。
& x1 o( F% p. x. D& e0 Z" Q  第一个是AutoSize,将它设为False,然后将Label的高度和宽度进行调整，适应要显示的区域！
  第二个是WordWrap,将它设为True。
  注意对于英文的显示是以单词为单位的，即不能把一个单词分两行显示，即使已经到了边界了，
  这时的显示应以空格区分多个单词！
. P- l8 b; W' g3 U3.使Label控件上的文字纵向显示
2 O5 h1 J4 _) ^" k. y  最直接的方法是改变字体的旋转度和方向！
0 B7 Q! C- S5 Y; M  下面这些代码实现了旋转的功能：
  void __fastcall TForm1::Button1Click(TObject *Sender)
  {
    TFont *font;
    LOGFONT logfont;
; e$ j- v( T, O: C' c" F( H) w$ w" v    font=new TFont;
1 j- @3 l6 v; D. B. j    font->Assign(Label1->Font);
    GetObject(font->Handle,sizeof(LOGFONT),&logfont);
    logfont.lfEscapement=-900;
3 u, l) p7 h  T3 y" }2 }    logfont.lfOrientation=-900;
    font->Handle=CreateFontIndirect(&logfont);
    Label1->Font=font;
" C5 t3 e. c) _/ V+ Q4 S% c5 ]    delete font;
    Label1-&gt;Caption="矩阵论坛<a href="http://www.matrixstudio.org" target="_blank" >www.matrixstudio.org</A>";
! _" |9 N: E3 v+ r4 L  }
  这里要将Label的AutoSize设为False,然后将Label的高度和宽度进行调整，适应要显示的区域！
* o& m5 u+ C) A) N! M  将Alignment设为taCenter。
  
  还有一种纵向显示的方式，字体不用旋转，利用Label可以显示多行文本的方法，将标签要显示的
) Q1 {4 R7 r1 e# ~& D0 O, A1 c  Caption字符串进行分拆，变成多行文本。在进行分拆时，注意汉字是双字节的，分拆时要将汉字
  识别出来，整体分拆，否则会出现乱码！
  下面的代码实现了这个功能：
  void __fastcall TForm1::Button1Click(TObject *Sender)
  {
    Label1-&gt;Caption=VString(Label1-&gt;Caption);
  }
  //---------------------------------------------------------------------------
  AnsiString __fastcall TForm1::VString(AnsiString ss)
% K; t: t! e* Q8 x! s+ t4 S  {
1 Q" B+ T7 [. p& S, K& e4 l    AnsiString ass;
    int ii,ll;
% q# u+ o& i. B1 E    unsigned char cc;
    ass="";
" ]' H7 W5 D" m; s' `# f    ll=ss.Length();
    for(ii=0;ii&lt;ll;ii++)
* U5 Y( j' }; u+ x) U* F    {
& N1 Z* q0 A$ m       cc=ss.c_str()[ii];
       if(cc&gt;0xa0)
       {
, K" k9 W1 p9 [3 D9 P         ass=ass+ss.SubString(ii+1,2)+"\n";
. {# E0 I. P1 a         ii++;
       }
       else
       {
. B& i4 s+ K* G) g9 e5 {8 r6 @         ass=ass+ss.SubString(ii+1,1)+"\n";
! m9 p. x4 X0 j, |9 b3 c  U       }
0 J5 j7 z/ V, ?( m2 ^) `2 M    }
    return ass;
; x' r# j* o9 M. w7 _, N- v  }
  这里要将Label的AutoSize设为False,然后将Label的高度和宽度进行调整，适应要显示的区域！
4.鼠标指向Label控件时改变说明文字的颜色
, |- c7 q8 P- }0 V1 C, j  通过Label的MouseMove事件，媒举所有控件，将名称和鼠标经过的控件相同的Label的字体颜色变成
  红色，其他的字体颜色变成黑色！
  下面的代码实现了这个功能：
  void __fastcall TForm1::Test(TObject *Sender)
  {
# Y$ ~, B, s2 G* Z  l, J" w( u* Q    int i;
/ s0 e# H; a2 ?/ u: ?    TLabel *lb;
  y/ H" [1 U+ r  N- ]" Z9 F4 k8 A    AnsiString ss1,ss2;
5 [. v3 i/ {; Y# O  Y1 }3 e    ss1=Sender-&gt;ClassName();//获取参数的类型
    if(ss1!="TLabel")return;//如果不是标签不处理
    lb=(TLabel*)Sender;
    ss1=lb-&gt;Name;
    for(i=0;i&lt;ControlCount;i++)
6 {) @) c4 p: F6 r" A$ b' w  W1 p    {
      lb=(TLabel *)Controls;
2 O8 m9 S9 p' n% ?. H& t$ v      ss2=lb-&gt;Name;
      if(ss1==ss2)
3 A4 |! F" K& |7 u5 n7 J) q         lb-&gt;Font-&gt;Color=clRed;
* |* F: S- Q" k8 i. P- h      else
         lb-&gt;Font-&gt;Color=clBlack;
5 U! l4 c1 l  w2 D. F6 ~6 U    }
9 e4 G. V  W0 M  }
  //---------------------------------------------------------------------------
8 A/ T, p; Z) T3 T  void __fastcall TForm1:abel1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
  {
     Test(Sender);
  }