[原创]Edit控件使用方法小释（由ilikenba收集整理）

ilikenba

<>本文由ilikenba收集整理</P>
5 R+ H0 `( F# o1 D<>Edit控件作为密码输入框：</P>
) U2 U$ l% o" y, k: J4 r<>Edit控件有一个PasswordChar属性，它的默认值为“#0”，当改变</P>
. ^# T, B) L+ Y/ O, D<>asswordChar的值后，即不为“#0”时，
6 i5 h7 u, T! V0 X2 M/ Z不显示所输入的字符，而以PasswordChar所设置的字符显示。当PasswordChar</P>
  S0 o* P2 y% e$ X) j8 h' R( Q8 o<>的值为“#1”至“#9”时，
Edit也是密码输入框，当输入密码时，以一细竖条表示。剪切、复制对已设置为</P>
<>密码输入状态的Edit毫无作用。
3 z3 l% t, h  ~& E. I3 ^*****************************************************************
Edit内显示图像：</P>
<>void __fastcall TForm1::Button1Click(TObject *Sender)
8 f+ S0 e* Q3 ~{
+ k: h, i  I3 t8 K) x! q  HDC dc;
  dc=GetDC(Edit1-&gt;Handle);   </P>
  r! k4 H7 [( {+ K) @+ {7 }- E<>BitBlt(dc,0,0,Image1-&gt;Width,Image1-&gt;Height,Image1-&gticture-&gt;Bitma</P>
<>p-&gt;Canvas-&gt;Handle,
% z7 ]; h+ r: u8 ]  0,0,SRCCOPY);        
}
, F! e, c1 T6 o3 e  B2 E5 f这里使用了BitBlt函数向Edit控件画图。
*****************************************************************
9 u1 Z7 n, i  U" H( k去掉Edit控件回车后的提示音：</P>
4 n  Y- O5 |* X' v<>void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &amp;Key)
" L: O  t$ w, Z! ]2 q{
  if(Key==13)Key=0;        
}
就是拦截输入键，将其值置为0.
$ R. p+ D8 p: F, I*****************************************************************
去掉Edit进入时自动选择文本功能：</P>
, x& G! |  Z+ J: i2 _! ?6 ~8 i<>将Edit控件的AutoSelect属性设为False.
/ ~( `$ Z( G' M*****************************************************************
7 U: P/ R* i1 S& _& m' _用代码设置Edit选择文本：</P>
3 A9 v, m% s* C" N3 [, \<>void __fastcall TForm1::Edit1Enter(TObject *Sender)
+ O& p  [* n" ]! m{
) P/ X% m2 f) k% N) e8 c  Edit1-&gt;SelStart=3;
  Edit1-&gt;SelLength=5;
/ u1 F* I# q# y9 e}
因为无论怎样设置属性Edit控件都不会从中间选择文本，所以只能编程实现。
3 V0 P( u# _, \/ d. W- t) D因为SelStart是从0开始计数的。所以实际中是从第四个字符开始选择的。
*****************************************************************
& W) `' b2 w5 D1 X! k, P在Edit输入回车键时跳到下一个控件：</P>
2 r4 l9 q* g$ C2 |/ k& ~% m8 e<>void __fastcall TForm1:roEnter(TObject *Sender, char &amp;Key)
{
4 N, u+ j1 I8 o. N! \; n- u% D  int i,od;
1 W: A$ G) ?4 V! O  TEdit *ed;
2 ~+ j( d, H) E+ o3 ~! y" G  if(Key!=13)return;
4 t; b- K& m# s# t1 p  ed=(TEdit *)Sender;
7 L1 u: t5 W+ b: ?$ h, b) E8 e  od=ed-&gt;TabOrder;
4 T, V8 F% |+ a. g: a. W  for(i=0;i&lt;ControlCount;i++)
$ j5 D/ c6 Q  K* M/ t( P; B  {
5 Y* Z" U  U1 w    ed=(TEdit *)Controls;
2 ?# O9 u# I! W, Q- A    if(ed-&gt;TabOrder==(od+1))
    {
      ed-&gt;SetFocus();
      break;
    }
, E. f" \. a: j( @* `- l: o5 q  }
  Key=0;
: n, r$ [9 [2 V. n+ y$ C}
% Z" M/ k9 T# i* N/ z& B! s//---------------------------------------------------------------</P>
3 l! u. p3 j! \  v3 O6 T1 P9 p' u<>------------
$ E0 ^  K0 }7 q* W% n* bvoid __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &amp;Key)
# h; c. I1 Y* J5 Q/ ~{
7 Z  l- ~/ |+ ]  ProEnter(Sender,Key);
}
首先，通过键值判断是否为回车键，不是回车就不做处理。通过OnEnter事件的</P>
<>Sender参数确定控件的TabOrder的值。寻找下一个Edit控件，当其TabOrder的</P>
<>值比本控件大一时，将焦点设置在该控件上，最后，
: x- w1 B7 Z+ O' h" c; q" k将OnEnter事件所传递的键值Key设为0，既不让Edit控件处理改键，也消除了由</P>
8 k1 o& q- q; ]6 z2 y<>改键引起的提示音。
) b7 I% ?: I4 E9 r0 Y方法2：</P>
8 Y' K" G4 W1 g) A8 z6 p4 L<>void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &amp;Key)
{
  if(Key == VK_RETURN)
; v0 H) Y# A- K; P5 r, P  {
    SendMessage(this-&gt;Handle, WM_NEXTDLGCTL, 0, 0);
8 X( V3 ~. T  V- h" c" |. g    Key = 0;
  }
}
  w; G3 ~. S. X0 R8 d# n) e这里的VK_RETURN可以换成下面的虚拟键值：
& m8 \/ r7 A6 W/ [  ?, N7 S$ [键定义：在　winuser.h
  d: a. p0 K3 V+ b/ A: W7 |#define VK_SPACE 0x20
' T# U; R2 s( ]3 G; ^% {5 F" V#define VK_PRIOR 0x21
. C% d; J9 a5 X$ \. T# s. v#define VK_NEXT 0x22
0 F7 `0 g# `& F' U& @0 ~) J. n5 b3 |. P#define VK_END 0x23
#define VK_HOME 0x24
/ @1 f; v( Y* J% ~#define VK_LEFT 0x25
#define VK_UP 0x26
#define VK_RIGHT 0x27
. B+ G" W6 x6 r' \. g: c#define VK_DOWN 0x28
  V. X( }0 D, m#define VK_SELECT 0x29
#define VK_PRINT 0x2A
$ I7 T# E; Q3 G#define VK_EXECUTE 0x2B
#define VK_SNAPSHOT 0x2C
#define VK_INSERT 0x2D
#define VK_DELETE 0x2E
3 j5 g6 C0 l# @% J5 G#define VK_HELP 0x2F
*****************************************************************
9 C, r6 E) s9 ?/ Q7 \+ o将Pannel上的所有的Edit控件的Text属性清空：</P>
$ Q6 P: v* N2 K! @<>for(int i=0; i&ltanel1-&gt;ControlCount; i++)
3 d; Y/ ?6 o" v- `{
: ^* N4 b8 x" W. p  X        if( Panel1-&gt;Controls-&gt;ClassNameIs("TEdit"))
        {
                ((TEdit *)Panel1-&gt;Controls)-&gt;Text = "";</P>
0 q; e; {3 k- p; E<>        }
}
*****************************************************************
+ O2 d$ s2 s$ y! g' uEdit控件OnKeyPress和OnKeyDown事件对应的消息：</P>
<>Edit得OnKeyPress事件对应的是Windows得WM_CHAR消息,  
而OnKeyDown对应的就是WM_KEYDOWN消息。
*****************************************************************
动态创建Edit组件：</P>
# ^4 |- F$ c+ N+ ]7 }<>void __fastcall TForm1::Button1Click(TObject *Sender)
{
TEdit *ed;
$ V$ E3 G8 t5 M  m/ [ed=new TEdit(this);
5 ?4 h0 G) N/ a( A! G; O7 sed-&gtarent=this;
) i( t' m  ^- {# w1 C) ]% @ed-&gt;Left=10;
ed-&gt;Top=10;
}  
% w# C1 H3 _% eEdit控件的Parent属性在动态生成时一定要赋值，否则它将无法显示。
2 ^7 j& K! q- c( C*****************************************************************
得到其它窗体上的Edit控件的Text属性值：</P>
<>void __fastcall TForm1::Button3Click(TObject *Sender)
& n" f) c; }8 S{
  HWND ff,tt;
4 A8 a5 E0 u0 l% x+ y3 B7 Y. O  char s[20];
  ff=FindWindow(NULL,"运行");//首先运行标题为“运行”的窗体
- }+ |0 t9 K  C4 H% S* s  if (ff!=0)
( g: j9 X- @) {+ o1 c  {
, r$ r# {; r$ _: O* x/ [( b    tt=GetNextDlgTabItem(ff,NULL,false);
    SendMessage(tt,EM_SETPASSWORDCHAR,0,0);
    SendMessage(tt,WM_GETTEXT,20,(long)(s));
  t+ t4 e" P/ L  I  V- d( M9 |% n    Edit2-&gt;Text=String(s);
- ?. r  D- |" j0 u% j  }
0 c) q' W! R2 g/ P7 Q) W}
如果所要得到的Edit控件的Tab属性不是第一个可以多次利GetNextDlgTabItem
方法。</P>