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

ilikenba

<>本文由ilikenba收集整理</P>
" b2 ~7 m- @5 K, b4 M<>Edit控件作为密码输入框：</P>
<>Edit控件有一个PasswordChar属性，它的默认值为“#0”，当改变</P>
<>asswordChar的值后，即不为“#0”时，
/ H7 Q5 `* Y2 [0 G7 o& L; y不显示所输入的字符，而以PasswordChar所设置的字符显示。当PasswordChar</P>
; B  V0 x5 S( n( g* c) ^<>的值为“#1”至“#9”时，
2 [$ a$ j$ \: U9 o) E% TEdit也是密码输入框，当输入密码时，以一细竖条表示。剪切、复制对已设置为</P>
( y2 x1 e- {" h5 v, w- r( }$ ]: z3 l<>密码输入状态的Edit毫无作用。
3 I6 L1 \) ~8 g& q, m*****************************************************************
Edit内显示图像：</P>
, F. x* H3 _1 Z0 O# z1 O<>void __fastcall TForm1::Button1Click(TObject *Sender)
. u! i+ f5 ], j' K# q- Z{
  HDC dc;
  dc=GetDC(Edit1-&gt;Handle);   </P>
, Y  @7 ]5 X, W<>BitBlt(dc,0,0,Image1-&gt;Width,Image1-&gt;Height,Image1-&gticture-&gt;Bitma</P>
<>p-&gt;Canvas-&gt;Handle,
  f9 k0 j: |1 U8 Y9 B6 v" A  0,0,SRCCOPY);        
}
! g9 r6 H3 V' W3 j4 V2 b) o; i这里使用了BitBlt函数向Edit控件画图。
*****************************************************************
去掉Edit控件回车后的提示音：</P>
! k! t; t5 N' j8 o) \6 {<>void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &amp;Key)
{
  if(Key==13)Key=0;        
}
4 s/ y+ r0 r7 i7 Z% C" S: F9 }就是拦截输入键，将其值置为0.
9 J$ c! f8 `2 X: _6 ?*****************************************************************
去掉Edit进入时自动选择文本功能：</P>
<>将Edit控件的AutoSelect属性设为False.
3 S, r6 F: U/ M& ~9 ]*****************************************************************
用代码设置Edit选择文本：</P>
+ r/ A7 u) C4 F& X, n<>void __fastcall TForm1::Edit1Enter(TObject *Sender)
{
) d3 k5 g: B' n8 r/ d, [+ K  Edit1-&gt;SelStart=3;
5 h0 e2 I. k/ Y4 v- k/ h7 x  Edit1-&gt;SelLength=5;
: V3 |  m6 ?( p# j}
$ \" P1 D* l1 d2 ?$ o- d7 n因为无论怎样设置属性Edit控件都不会从中间选择文本，所以只能编程实现。
因为SelStart是从0开始计数的。所以实际中是从第四个字符开始选择的。
*****************************************************************
6 z6 o. S/ `5 x在Edit输入回车键时跳到下一个控件：</P>
3 b& U6 k; ~5 [0 h: G<>void __fastcall TForm1:roEnter(TObject *Sender, char &amp;Key)
{
; x/ w7 w1 M7 m2 |( [' K6 N  int i,od;
, z* d7 }8 `! F8 D  TEdit *ed;
  if(Key!=13)return;
( }" o5 W" p% Y) A# ~  ed=(TEdit *)Sender;
  od=ed-&gt;TabOrder;
* Q' W& P  c9 t' Q! J3 s% H# W  for(i=0;i&lt;ControlCount;i++)
  {
    ed=(TEdit *)Controls;
4 u) q( J9 Q4 M) {/ g4 i8 b" q' G    if(ed-&gt;TabOrder==(od+1))
8 U1 E& `+ k) D! {    {
      ed-&gt;SetFocus();
9 N. }: r/ R5 w6 L/ E9 A7 B      break;
    }
; N9 z# R( t5 k7 t  }
  Key=0;
# G) F& ]- ?4 w# \& d: P}
//---------------------------------------------------------------</P>
9 T  {# \7 h. n, S<>------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &amp;Key)
$ W5 T. O% A( w+ N1 E5 x0 p% K" I' X{
8 ~: \5 Z# S  ^* t  ProEnter(Sender,Key);
; |) s- m6 N+ p) d0 I6 L, B* M}
4 Q$ L4 G8 @3 i" F0 M+ B, n首先，通过键值判断是否为回车键，不是回车就不做处理。通过OnEnter事件的</P>
& H9 q, f* [8 x' u' G<>Sender参数确定控件的TabOrder的值。寻找下一个Edit控件，当其TabOrder的</P>
<>值比本控件大一时，将焦点设置在该控件上，最后，
将OnEnter事件所传递的键值Key设为0，既不让Edit控件处理改键，也消除了由</P>
4 r% z4 t" p) u( [<>改键引起的提示音。
# ?* k# o* N- }" ^6 d% r/ d方法2：</P>
, x2 y6 B2 A, R  F6 S; H4 c<>void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &amp;Key)
: S1 N7 R% y: S: p{
4 J/ G- n0 o9 v( |3 f( [  if(Key == VK_RETURN)
  {
    SendMessage(this-&gt;Handle, WM_NEXTDLGCTL, 0, 0);
8 s& V. X! H1 w8 s6 L$ C    Key = 0;
  }
4 C, [& _, B# V2 P# p+ J. g0 w}
这里的VK_RETURN可以换成下面的虚拟键值：
键定义：在　winuser.h
" I# P' q' E4 K#define VK_SPACE 0x20
" K0 e3 B9 a5 i/ `8 j7 b#define VK_PRIOR 0x21
#define VK_NEXT 0x22
#define VK_END 0x23
( E' U: C5 p& R) m$ `#define VK_HOME 0x24
6 @4 x& K( d' @#define VK_LEFT 0x25
+ A3 W3 [: r# m3 l6 o$ s#define VK_UP 0x26
#define VK_RIGHT 0x27
#define VK_DOWN 0x28
#define VK_SELECT 0x29
/ I$ m) n+ Y$ w6 u4 X) P" X# e#define VK_PRINT 0x2A
#define VK_EXECUTE 0x2B
#define VK_SNAPSHOT 0x2C
7 t5 {2 Y& M$ F9 m4 D) `( b% [#define VK_INSERT 0x2D
#define VK_DELETE 0x2E
#define VK_HELP 0x2F
5 c$ h* [$ U. m$ r7 ], ^*****************************************************************
将Pannel上的所有的Edit控件的Text属性清空：</P>
* m/ a% r# r6 o2 G<>for(int i=0; i&ltanel1-&gt;ControlCount; i++)
# x- n( |' e% V3 U/ {( C# _{
        if( Panel1-&gt;Controls-&gt;ClassNameIs("TEdit"))
$ f+ u4 x4 t5 _7 E        {
' H8 C) }( n, i" L- v) q                ((TEdit *)Panel1-&gt;Controls)-&gt;Text = "";</P>
, v/ H7 H0 o8 H; ]# J. b<>        }
}
*****************************************************************
: S8 ~% o7 r8 F9 GEdit控件OnKeyPress和OnKeyDown事件对应的消息：</P>
<>Edit得OnKeyPress事件对应的是Windows得WM_CHAR消息,  
而OnKeyDown对应的就是WM_KEYDOWN消息。
*****************************************************************
& K! ]) N( p( U+ K6 u! E9 e动态创建Edit组件：</P>
<>void __fastcall TForm1::Button1Click(TObject *Sender)
) }5 F+ S0 o6 i- F8 s  M{
0 N; k2 E9 P: i$ QTEdit *ed;
ed=new TEdit(this);
1 k% m( W2 A# Ked-&gtarent=this;
ed-&gt;Left=10;
9 y# Q3 Q+ _5 j# g8 x, \& Y8 R. H) red-&gt;Top=10;
}  
Edit控件的Parent属性在动态生成时一定要赋值，否则它将无法显示。
*****************************************************************
; |$ p& l; D1 c( A8 l) D4 N2 J得到其它窗体上的Edit控件的Text属性值：</P>
& q4 G# E/ M1 ~<>void __fastcall TForm1::Button3Click(TObject *Sender)
{
  HWND ff,tt;
  char s[20];
  ff=FindWindow(NULL,"运行");//首先运行标题为“运行”的窗体
  if (ff!=0)
, c4 N0 _9 p+ W' F% F  g5 |  {
& t7 c% P2 v; ^# Z  L" j. @" i; q    tt=GetNextDlgTabItem(ff,NULL,false);
    SendMessage(tt,EM_SETPASSWORDCHAR,0,0);
    SendMessage(tt,WM_GETTEXT,20,(long)(s));
0 f# Q, u$ u' u/ w    Edit2-&gt;Text=String(s);
  }
- R& j; V+ {' y" G}
8 [: U. w7 A+ L# m5 b) R如果所要得到的Edit控件的Tab属性不是第一个可以多次利GetNextDlgTabItem
方法。</P>