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

ilikenba

1.Label控件显示多行文本
  可以直接给Label的Caption属性赋给带有换行符或回车符的字符串！下面三个例子产生同样的效果：
  Label1->Caption="第一行\n第二行\n第三行";
1 C' P) {+ s2 t/ T4 g+ q  Label1->Caption="第一行\r第二行\r第三行";
  Label1->Caption="第一行\r\n第二行\r\n第三行";
  但注意这样赋多行的值只在运行的时候有效，在对Label的静态设计中，直接在Caption属性中输入
, y9 ~7 _1 X6 q: ^- |! t& U. B  "\r","\n"是没有用的，设计系统并没有对这些特殊字符作处理！
2.Label控件显示超长文本时自动换行
  只要对Label的两个属性进行修改。
$ f. A8 W* H% F1 P- v# G, o  第一个是AutoSize,将它设为False,然后将Label的高度和宽度进行调整，适应要显示的区域！
  第二个是WordWrap,将它设为True。
* A; y' k& a$ ?, H$ ]* v  注意对于英文的显示是以单词为单位的，即不能把一个单词分两行显示，即使已经到了边界了，
  这时的显示应以空格区分多个单词！
3.使Label控件上的文字纵向显示
  最直接的方法是改变字体的旋转度和方向！
  下面这些代码实现了旋转的功能：
  void __fastcall TForm1::Button1Click(TObject *Sender)
  {
0 a+ [# b0 S9 M, G7 }8 Z& c4 I+ U    TFont *font;
+ j8 P  U# Y1 e+ X6 q( P    LOGFONT logfont;
/ O. @2 c, N# g# }) R4 U    font=new TFont;
    font->Assign(Label1->Font);
    GetObject(font->Handle,sizeof(LOGFONT),&logfont);
    logfont.lfEscapement=-900;
2 v$ D3 {8 l$ z4 h- }    logfont.lfOrientation=-900;
; @* ]% c9 b6 K0 W9 H    font->Handle=CreateFontIndirect(&logfont);
    Label1->Font=font;
    delete font;
9 |% D: l# H/ o+ D, [& y$ X    Label1-&gt;Caption="矩阵论坛<a href="http://www.matrixstudio.org" target="_blank" >www.matrixstudio.org</A>";
0 Z  y3 ?; F4 ?+ i/ x+ h  c! R  }
6 m0 w( c4 {3 M; }/ q' T( J# q  这里要将Label的AutoSize设为False,然后将Label的高度和宽度进行调整，适应要显示的区域！
  将Alignment设为taCenter。
  
6 I9 q2 c8 ~0 b5 c8 x7 D( `. a  还有一种纵向显示的方式，字体不用旋转，利用Label可以显示多行文本的方法，将标签要显示的
  Caption字符串进行分拆，变成多行文本。在进行分拆时，注意汉字是双字节的，分拆时要将汉字
3 L# p) ~6 U3 K0 B1 ^6 O  识别出来，整体分拆，否则会出现乱码！
3 |$ E! L. C) [+ s  下面的代码实现了这个功能：
6 ?( H3 {4 R' c  void __fastcall TForm1::Button1Click(TObject *Sender)
+ P/ U, X/ ]! O7 l7 R  {
1 ?% K. j& s$ x- v    Label1-&gt;Caption=VString(Label1-&gt;Caption);
  }
/ k# e( ?0 _7 i. i% m  //---------------------------------------------------------------------------
  AnsiString __fastcall TForm1::VString(AnsiString ss)
  {
1 V8 B& q$ O) i3 h- H    AnsiString ass;
) R2 R* e% Q; B6 p    int ii,ll;
; x" K! a5 W8 G2 n- D+ A2 ^    unsigned char cc;
% B; t- f  t, y. K8 g& u. o9 J    ass="";
, z- `7 O; _- C/ }3 h! w# J    ll=ss.Length();
+ ^" S) S* s# B1 O    for(ii=0;ii&lt;ll;ii++)
    {
. c( `  U: c' c- w9 S! f; V; o9 F       cc=ss.c_str()[ii];
  Y) H2 ?$ O5 `5 M  R9 }& I       if(cc&gt;0xa0)
  m& G+ {+ m! M+ S' ^       {
6 X3 h) J/ V5 [/ k& g* n         ass=ass+ss.SubString(ii+1,2)+"\n";
         ii++;
       }
       else
2 e$ j$ |0 ~- P9 G  B       {
         ass=ass+ss.SubString(ii+1,1)+"\n";
) C9 i4 q6 j/ G2 @2 v/ `3 ~       }
# P! e1 s7 C! d* T% N    }
& Q4 @) ]8 ^6 l# C    return ass;
  }
8 T% b! [, x# j  Q8 a2 k+ [  这里要将Label的AutoSize设为False,然后将Label的高度和宽度进行调整，适应要显示的区域！
4.鼠标指向Label控件时改变说明文字的颜色
0 z* n9 U- C: w. e. [) N& H4 X  通过Label的MouseMove事件，媒举所有控件，将名称和鼠标经过的控件相同的Label的字体颜色变成
- u: Y4 \5 B0 b  红色，其他的字体颜色变成黑色！
5 r3 s: @9 A- B9 s9 a6 k2 W  下面的代码实现了这个功能：
5 Z! |( @! Q) m' `4 Y& _+ F  void __fastcall TForm1::Test(TObject *Sender)
  {
    int i;
$ {5 d! m1 b. b. G9 j; ?    TLabel *lb;
# X1 d; ]2 _- ?& ^9 w    AnsiString ss1,ss2;
    ss1=Sender-&gt;ClassName();//获取参数的类型
    if(ss1!="TLabel")return;//如果不是标签不处理
- i4 j- q6 I$ L3 ?5 ^0 U( Z    lb=(TLabel*)Sender;
    ss1=lb-&gt;Name;
    for(i=0;i&lt;ControlCount;i++)
6 {$ x6 O7 g# k1 q" A( k& [    {
      lb=(TLabel *)Controls;
: |1 ^, p  m$ x. R& j      ss2=lb-&gt;Name;
      if(ss1==ss2)
         lb-&gt;Font-&gt;Color=clRed;
2 v- g4 h  ^- z  g$ x/ u5 v; B      else
5 p8 z7 [1 B9 ]7 ]& I         lb-&gt;Font-&gt;Color=clBlack;
' k- H; O6 [% N0 U. |4 d; V! O% \    }
, l0 `% s$ Z$ h7 v+ g+ e, `3 c  }
+ _8 S0 l# _0 _/ t1 Q+ }# X0 r  //---------------------------------------------------------------------------
" u: ?5 d. X; q. A  void __fastcall TForm1:abel1MouseMove(TObject *Sender, TShiftState Shift,
& I! |% j) q) i' `% {! }' e      int X, int Y)
( ?4 F+ i$ I4 M2 i2 G  {
     Test(Sender);
% o- k0 b4 N  J2 Q5 u; X  }