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

ilikenba

<>本文由ilikenba收集整理</P>
<>Edit控件作为密码输入框：</P>
- V! b* R! j. D<>Edit控件有一个PasswordChar属性，它的默认值为“#0”，当改变</P>
<>asswordChar的值后，即不为“#0”时，
7 o+ t# u, z# |6 L; N2 b! C不显示所输入的字符，而以PasswordChar所设置的字符显示。当PasswordChar</P>
% w6 w4 }4 i* X5 K<>的值为“#1”至“#9”时，
7 {8 V$ q' z5 R# ^+ n6 GEdit也是密码输入框，当输入密码时，以一细竖条表示。剪切、复制对已设置为</P>
<>密码输入状态的Edit毫无作用。
( \+ M0 t* i4 t5 }* {; G% b*****************************************************************
Edit内显示图像：</P>
3 V- S5 \9 N, B% R+ X, A# U<>void __fastcall TForm1::Button1Click(TObject *Sender)
{
  HDC dc;
  dc=GetDC(Edit1-&gt;Handle);   </P>
1 U  q9 R, U+ c+ L2 @4 u+ T6 I' E<>BitBlt(dc,0,0,Image1-&gt;Width,Image1-&gt;Height,Image1-&gticture-&gt;Bitma</P>
0 x! M" j; R- x" N<>p-&gt;Canvas-&gt;Handle,
  0,0,SRCCOPY);        
/ t" l0 s5 b" C( ?' j- G4 q0 m# }}
这里使用了BitBlt函数向Edit控件画图。
$ J1 a" [) }- R" K( s/ `' X*****************************************************************
去掉Edit控件回车后的提示音：</P>
( Q1 r. W# @: t/ U( ~<>void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &amp;Key)
" f5 l* k9 o' A8 x) a3 v5 T& Y) a{
% n! e5 h% T5 i- a! O- y, G  if(Key==13)Key=0;        
) b3 |6 _7 `: S( e4 N' R" z( j8 [! {}
' x; Q( c! \6 ~: S0 J0 l; c, _/ W就是拦截输入键，将其值置为0.
0 Q* s5 x5 G- f6 }1 B*****************************************************************
去掉Edit进入时自动选择文本功能：</P>
<>将Edit控件的AutoSelect属性设为False.
( t  C. S# L( T( X/ b*****************************************************************
用代码设置Edit选择文本：</P>
<>void __fastcall TForm1::Edit1Enter(TObject *Sender)
( s4 [8 a9 k% z% o0 H! q  o  w{
1 p6 D  K/ r  T3 X7 r/ O  Edit1-&gt;SelStart=3;
  Edit1-&gt;SelLength=5;
}
8 i; i3 ]5 Z4 O$ f1 g/ h因为无论怎样设置属性Edit控件都不会从中间选择文本，所以只能编程实现。
因为SelStart是从0开始计数的。所以实际中是从第四个字符开始选择的。
*****************************************************************
% ?6 W9 @3 z  O) z- P# p在Edit输入回车键时跳到下一个控件：</P>
( R: J" S7 o0 k+ @$ u<>void __fastcall TForm1:roEnter(TObject *Sender, char &amp;Key)
1 {" t  V# v) b/ D8 g* ?; \{
  int i,od;
8 ^; Q. t& @2 }/ i: I2 p0 H! t5 I  TEdit *ed;
  if(Key!=13)return;
9 `6 v' g9 }; U6 \  ed=(TEdit *)Sender;
  od=ed-&gt;TabOrder;
! ]4 ]5 }) M( \- u2 D7 |8 S  for(i=0;i&lt;ControlCount;i++)
  {
( C9 z+ N. l+ o' z! W& i8 K    ed=(TEdit *)Controls;
, @9 X- v' s% E. S    if(ed-&gt;TabOrder==(od+1))
! E) ^# q: }: F! D. ^) }' d; q    {
8 k& s2 O4 g; R" \3 X      ed-&gt;SetFocus();
" q/ {  i% O1 V      break;
! u2 L; ]" ^# ?: T" F/ v* x    }
5 A: Z" L* w! F6 q3 b; c2 W) e  }
  Key=0;
}
//---------------------------------------------------------------</P>
<>------------
. u& u1 L4 E1 H4 z+ Kvoid __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &amp;Key)
# M  [3 G0 |8 H4 s2 u# r{
  ProEnter(Sender,Key);
}
首先，通过键值判断是否为回车键，不是回车就不做处理。通过OnEnter事件的</P>
: j2 C. H7 D# R& @2 r- F5 ^<>Sender参数确定控件的TabOrder的值。寻找下一个Edit控件，当其TabOrder的</P>
4 r% h/ x/ f0 @: Y4 [2 W<>值比本控件大一时，将焦点设置在该控件上，最后，
) g1 H' F0 Q! n; |2 Q/ I7 j8 N  i1 [将OnEnter事件所传递的键值Key设为0，既不让Edit控件处理改键，也消除了由</P>
$ t- `* M+ Y' r3 [5 ]$ F8 Q! c5 _& `<>改键引起的提示音。
- X! \# w" B- X! h0 D+ l' ~" v* M1 ^方法2：</P>
<>void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &amp;Key)
& D8 C. N$ @# X1 c# Z; L' x$ M{
  if(Key == VK_RETURN)
  {
    SendMessage(this-&gt;Handle, WM_NEXTDLGCTL, 0, 0);
, v! h4 x- y5 z; [, w; v2 G    Key = 0;
  }
}
这里的VK_RETURN可以换成下面的虚拟键值：
键定义：在　winuser.h
+ M2 ~& f2 B) _#define VK_SPACE 0x20
/ p* ~1 |5 k; J' L, `#define VK_PRIOR 0x21
- A8 c+ Y- r" \2 y1 U* F% n4 z0 e#define VK_NEXT 0x22
) k5 ^$ v8 B$ `; l5 M( |$ M3 r#define VK_END 0x23
#define VK_HOME 0x24
6 e, K, m( p$ H#define VK_LEFT 0x25
#define VK_UP 0x26
#define VK_RIGHT 0x27
#define VK_DOWN 0x28
#define VK_SELECT 0x29
) K* H  `& [: U* v#define VK_PRINT 0x2A
#define VK_EXECUTE 0x2B
" z( o7 q8 r  g2 s5 d#define VK_SNAPSHOT 0x2C
#define VK_INSERT 0x2D
#define VK_DELETE 0x2E
#define VK_HELP 0x2F
*****************************************************************
) m& }" t; J& A9 D+ p$ w9 I4 v; o/ r将Pannel上的所有的Edit控件的Text属性清空：</P>
# j2 G, N5 {4 B0 Y5 F<>for(int i=0; i&ltanel1-&gt;ControlCount; i++)
  N- `- @; q. ?% U. x+ L( l{
        if( Panel1-&gt;Controls-&gt;ClassNameIs("TEdit"))
        {
                ((TEdit *)Panel1-&gt;Controls)-&gt;Text = "";</P>
! [; x) i8 t% t$ H) \* o& v& m$ }<>        }
}
' f: @2 Z, y8 H. B) `$ D- M( _*****************************************************************
Edit控件OnKeyPress和OnKeyDown事件对应的消息：</P>
<>Edit得OnKeyPress事件对应的是Windows得WM_CHAR消息,  
而OnKeyDown对应的就是WM_KEYDOWN消息。
* O# M" Z) V$ C4 p' r8 A- P*****************************************************************
: R  d: h7 @- u0 O0 z动态创建Edit组件：</P>
<>void __fastcall TForm1::Button1Click(TObject *Sender)
4 t; w  q  z* m" u/ ?9 {: P, z+ `. d{
* `' ]8 t' e7 c0 `9 t5 w; vTEdit *ed;
# X+ r3 S* S- l% V7 U  Bed=new TEdit(this);
ed-&gtarent=this;
ed-&gt;Left=10;
8 z, t( o  n9 ced-&gt;Top=10;
% S+ d! w$ c4 W}  
Edit控件的Parent属性在动态生成时一定要赋值，否则它将无法显示。
*****************************************************************
得到其它窗体上的Edit控件的Text属性值：</P>
; `+ m5 _8 w: W3 \! g  f  L0 ~, z0 v" q<>void __fastcall TForm1::Button3Click(TObject *Sender)
{
% {7 J- _' y. H, y! p+ m  HWND ff,tt;
! Q9 {5 ~9 Q  Z- @9 Y  char s[20];
4 l$ F! X3 j' U+ v; ?  ff=FindWindow(NULL,"运行");//首先运行标题为“运行”的窗体
  if (ff!=0)
8 u/ |% c; _6 @/ t+ ~  {
! ?( m4 o' Q8 ?, ~) m0 U    tt=GetNextDlgTabItem(ff,NULL,false);
1 [& p9 C0 F0 \& r    SendMessage(tt,EM_SETPASSWORDCHAR,0,0);
    SendMessage(tt,WM_GETTEXT,20,(long)(s));
    Edit2-&gt;Text=String(s);
  }
( @8 ?& ?3 y1 D4 V}
如果所要得到的Edit控件的Tab属性不是第一个可以多次利GetNextDlgTabItem
方法。</P>