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

ilikenba

<>本文由ilikenba收集整理</P>
$ i& k* E5 c$ h+ I  T<>Edit控件作为密码输入框：</P>
; Y$ N5 y3 Y- @' w/ ^% M<>Edit控件有一个PasswordChar属性，它的默认值为“#0”，当改变</P>
4 w2 L; N% h' G% O) D& N<>asswordChar的值后，即不为“#0”时，
不显示所输入的字符，而以PasswordChar所设置的字符显示。当PasswordChar</P>
6 G5 w5 ?' k* E<>的值为“#1”至“#9”时，
Edit也是密码输入框，当输入密码时，以一细竖条表示。剪切、复制对已设置为</P>
) a' m/ {5 H. M0 H/ s" }<>密码输入状态的Edit毫无作用。
8 k1 o8 _3 J3 M6 ?; M*****************************************************************
( v2 {5 ^' ~0 hEdit内显示图像：</P>
<>void __fastcall TForm1::Button1Click(TObject *Sender)
4 k8 M8 b0 X& O' f4 `{
  HDC dc;
+ _. @% g, [# P0 |" x' R/ _& }% @* X  dc=GetDC(Edit1-&gt;Handle);   </P>
9 X. J( ?  W( D<>BitBlt(dc,0,0,Image1-&gt;Width,Image1-&gt;Height,Image1-&gticture-&gt;Bitma</P>
$ T' r3 D+ j5 n5 j& v<>p-&gt;Canvas-&gt;Handle,
: s  [) Z+ Y4 j) u2 `5 ~" n  0,0,SRCCOPY);        
}
. @+ W7 ]& T) a! I% C& N这里使用了BitBlt函数向Edit控件画图。
*****************************************************************
% \9 l( `1 q- G& ?去掉Edit控件回车后的提示音：</P>
<>void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &amp;Key)
3 a. t: {, {# Z{
0 Y- g1 v9 z0 i1 Y- \: B  if(Key==13)Key=0;        
}
! f! u" |8 D# `5 ^( r: p+ T就是拦截输入键，将其值置为0.
*****************************************************************
  t( L$ }. X) Q; n去掉Edit进入时自动选择文本功能：</P>
<>将Edit控件的AutoSelect属性设为False.
6 D% ?$ N9 o! g. a, u! ^3 T1 V6 ~7 w*****************************************************************
用代码设置Edit选择文本：</P>
<>void __fastcall TForm1::Edit1Enter(TObject *Sender)
{
+ Q; X! _+ U; n  Edit1-&gt;SelStart=3;
' M2 A/ a  e) d; |/ s" Z/ w  Edit1-&gt;SelLength=5;
}
因为无论怎样设置属性Edit控件都不会从中间选择文本，所以只能编程实现。
! D5 P) O. U4 M( H+ s$ X因为SelStart是从0开始计数的。所以实际中是从第四个字符开始选择的。
/ ?/ y  i3 U9 d! c% S' Q*****************************************************************
在Edit输入回车键时跳到下一个控件：</P>
$ f7 w5 I! c* G- V<>void __fastcall TForm1:roEnter(TObject *Sender, char &amp;Key)
{
! ~* A* x$ S& k( X  int i,od;
  TEdit *ed;
  if(Key!=13)return;
  d' L8 b* z; s# O# p  t" s6 C  ed=(TEdit *)Sender;
. p9 r$ u0 V2 m" J' h! r  od=ed-&gt;TabOrder;
& z' L' ?( k% w- @% K! z7 ~  for(i=0;i&lt;ControlCount;i++)
3 g( y- H5 }8 p3 n% \2 A; E# A  {
& J; }; ^5 t" C# v    ed=(TEdit *)Controls;
1 N1 M) _' e1 K2 x; s+ i$ x    if(ed-&gt;TabOrder==(od+1))
$ ^6 a& [  H5 ^5 p- X' P. ]" }5 w    {
      ed-&gt;SetFocus();
      break;
    }
  }
; f" Q/ k1 W0 _3 {2 F/ v  [  Key=0;
}
//---------------------------------------------------------------</P>
<>------------
. N: i! {7 p( S* bvoid __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &amp;Key)
{
7 G  n. J3 E2 Z& E; U/ U3 h( _  ProEnter(Sender,Key);
3 t0 u% ~/ ^% S3 E" k5 l}
: d" L. u1 X& ^* }! d# F/ j7 x首先，通过键值判断是否为回车键，不是回车就不做处理。通过OnEnter事件的</P>
8 K' R/ M% A$ ~: s2 |+ [# W% e<>Sender参数确定控件的TabOrder的值。寻找下一个Edit控件，当其TabOrder的</P>
- I5 T- I( W) [1 H( p0 J/ P, S<>值比本控件大一时，将焦点设置在该控件上，最后，
将OnEnter事件所传递的键值Key设为0，既不让Edit控件处理改键，也消除了由</P>
<>改键引起的提示音。
方法2：</P>
<>void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &amp;Key)
{
  if(Key == VK_RETURN)
  {
3 [. D; O5 y2 B* }) n, m    SendMessage(this-&gt;Handle, WM_NEXTDLGCTL, 0, 0);
6 a4 n  \6 }* _1 S    Key = 0;
  ?+ V! z. ~9 l- ~; Q6 o+ k  }
% F, m  S, C: Y# u  B}
* B: _% S7 ~" m5 B8 j6 p0 x9 V这里的VK_RETURN可以换成下面的虚拟键值：
键定义：在　winuser.h
#define VK_SPACE 0x20
3 T' _: m9 `6 h#define VK_PRIOR 0x21
. g2 g1 n# Z3 q- J# B9 A#define VK_NEXT 0x22
#define VK_END 0x23
#define VK_HOME 0x24
5 G' F  n9 D3 U4 U! \#define VK_LEFT 0x25
; w5 H% O/ A( I, }* t7 q#define VK_UP 0x26
* Y! k- }, C" V9 }: d5 i5 T#define VK_RIGHT 0x27
. N- M$ U$ v! p4 I5 w3 ]#define VK_DOWN 0x28
+ W  V. E; z7 v  T2 ~, K1 R5 h#define VK_SELECT 0x29
" t7 L  Q' ^9 m#define VK_PRINT 0x2A
& Y8 P3 c0 ]- B( {3 ~#define VK_EXECUTE 0x2B
* H6 ]% M1 t9 F' }#define VK_SNAPSHOT 0x2C
9 N0 [! r7 U0 l# w- S#define VK_INSERT 0x2D
$ I+ o1 Y' B) z0 r#define VK_DELETE 0x2E
#define VK_HELP 0x2F
*****************************************************************
9 I: z% l2 Q& M* O5 D1 m/ ~将Pannel上的所有的Edit控件的Text属性清空：</P>
$ h  E. I+ |( h0 M$ b1 u<>for(int i=0; i&ltanel1-&gt;ControlCount; i++)
{
        if( Panel1-&gt;Controls-&gt;ClassNameIs("TEdit"))
0 S5 j# g6 @. g: ?4 ~* K9 ?7 f- X        {
                ((TEdit *)Panel1-&gt;Controls)-&gt;Text = "";</P>
& S, d6 {5 M1 c$ J, d9 j<>        }
}
*****************************************************************
, u! M$ r0 y# d: z. oEdit控件OnKeyPress和OnKeyDown事件对应的消息：</P>
8 s3 e3 W% T4 B  O! v+ X<>Edit得OnKeyPress事件对应的是Windows得WM_CHAR消息,  
而OnKeyDown对应的就是WM_KEYDOWN消息。
*****************************************************************
动态创建Edit组件：</P>
% U( o! b% ]/ z. I6 u/ }<>void __fastcall TForm1::Button1Click(TObject *Sender)
{
1 w# ~" O/ o9 {' TTEdit *ed;
ed=new TEdit(this);
ed-&gtarent=this;
ed-&gt;Left=10;
4 G* d0 G! v( G* ~4 l* led-&gt;Top=10;
8 R/ a5 C: K3 |  E# f}  
0 |  G! M' J7 R: L+ L" [Edit控件的Parent属性在动态生成时一定要赋值，否则它将无法显示。
*****************************************************************
得到其它窗体上的Edit控件的Text属性值：</P>
7 L7 T: D) Y1 V2 S) U  O% G<>void __fastcall TForm1::Button3Click(TObject *Sender)
{
. Z& t! y* l- M8 \7 D  HWND ff,tt;
  char s[20];
  ff=FindWindow(NULL,"运行");//首先运行标题为“运行”的窗体
* H4 J) `7 T9 p0 t+ j8 G  if (ff!=0)
# s! _. [7 i0 }( `  {
% j' D- b, k6 r    tt=GetNextDlgTabItem(ff,NULL,false);
    SendMessage(tt,EM_SETPASSWORDCHAR,0,0);
    SendMessage(tt,WM_GETTEXT,20,(long)(s));
    Edit2-&gt;Text=String(s);
  }
}
如果所要得到的Edit控件的Tab属性不是第一个可以多次利GetNextDlgTabItem
方法。</P>