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

ilikenba

<>本文由ilikenba收集整理</P>
; z+ _% C5 J4 n' `. y' e- H9 y# B# G<>Edit控件作为密码输入框：</P>
0 a- Y4 L: i9 I7 \<>Edit控件有一个PasswordChar属性，它的默认值为“#0”，当改变</P>
) ~3 O0 d& U0 q7 c5 r7 Z: {<>asswordChar的值后，即不为“#0”时，
不显示所输入的字符，而以PasswordChar所设置的字符显示。当PasswordChar</P>
<>的值为“#1”至“#9”时，
Edit也是密码输入框，当输入密码时，以一细竖条表示。剪切、复制对已设置为</P>
<>密码输入状态的Edit毫无作用。
0 _( Z* i9 U& Z' f; P: o5 [*****************************************************************
Edit内显示图像：</P>
5 g; k4 R6 j7 H; T" ^, _<>void __fastcall TForm1::Button1Click(TObject *Sender)
8 P8 e7 {( {8 U+ W8 p) y3 d1 C{
  HDC dc;
# ^! u2 j1 W8 T4 f  dc=GetDC(Edit1-&gt;Handle);   </P>
6 ~8 x) o9 S  G2 I<>BitBlt(dc,0,0,Image1-&gt;Width,Image1-&gt;Height,Image1-&gticture-&gt;Bitma</P>
<>p-&gt;Canvas-&gt;Handle,
  0,0,SRCCOPY);        
}
- c, D1 u8 Y# l& Z1 }  d这里使用了BitBlt函数向Edit控件画图。
*****************************************************************
去掉Edit控件回车后的提示音：</P>
<>void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &amp;Key)
; Y2 z7 S, c4 ?* `" W{
  ]3 [! O  M, Z2 z$ @8 V, o  if(Key==13)Key=0;        
/ J: m, }6 Y; e}
就是拦截输入键，将其值置为0.
/ u) M! f8 j4 F, P4 l% H0 L; t*****************************************************************
" [8 e, O% g( u/ d3 H去掉Edit进入时自动选择文本功能：</P>
5 Y1 V( U3 M7 j' d: p" w" k<>将Edit控件的AutoSelect属性设为False.
& f* y. h2 B8 l0 \7 B+ \/ C9 ?7 _*****************************************************************
  U. S1 Q, Z( W用代码设置Edit选择文本：</P>
, n, e7 a0 u# u- v3 U3 T4 I4 _<>void __fastcall TForm1::Edit1Enter(TObject *Sender)
: x, l  B/ p  k: N{
! F% D% L4 v' R9 W. }+ v  Edit1-&gt;SelStart=3;
  Edit1-&gt;SelLength=5;
$ @, }  Z7 X4 C/ z6 \}
7 r0 s- h- p2 @$ }$ `+ {因为无论怎样设置属性Edit控件都不会从中间选择文本，所以只能编程实现。
6 t0 O8 ]2 I- Y! H6 A" T. Z因为SelStart是从0开始计数的。所以实际中是从第四个字符开始选择的。
*****************************************************************
在Edit输入回车键时跳到下一个控件：</P>
<>void __fastcall TForm1:roEnter(TObject *Sender, char &amp;Key)
{
  int i,od;
  TEdit *ed;
+ H5 M. v6 K. F, e/ p- }% K5 A9 R: ?" J; R  if(Key!=13)return;
6 t* s+ H+ e  d+ T- @% q' V  ed=(TEdit *)Sender;
+ J9 T/ {0 v' I) z. ^* r! v0 x7 z  od=ed-&gt;TabOrder;
5 S* {" f: b7 C9 ^1 F  for(i=0;i&lt;ControlCount;i++)
+ @8 W1 V& `6 q2 P% t7 h  {
6 J- m1 ~" C6 i6 s$ o  q    ed=(TEdit *)Controls;
  W0 q% T$ C1 I; y5 h3 M; B    if(ed-&gt;TabOrder==(od+1))
    {
  H% x, h0 D* C, ]  L      ed-&gt;SetFocus();
) Y/ N+ u# v1 K8 {; R      break;
    }
  }
- m) K6 c8 N" K" n  Key=0;
( @0 w  w& l. O* l" ]. m}
1 X- K6 V7 V  }3 g//---------------------------------------------------------------</P>
<>------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &amp;Key)
{
0 G! S8 j) U+ J3 l  ProEnter(Sender,Key);
}
" \: w- k8 _' w9 Q2 Y9 a: ~首先，通过键值判断是否为回车键，不是回车就不做处理。通过OnEnter事件的</P>
' D  A7 q' [8 \/ t6 w6 e$ |<>Sender参数确定控件的TabOrder的值。寻找下一个Edit控件，当其TabOrder的</P>
<>值比本控件大一时，将焦点设置在该控件上，最后，
8 H- K; v& a# |  }将OnEnter事件所传递的键值Key设为0，既不让Edit控件处理改键，也消除了由</P>
- _$ H- l. L1 ^9 Y: _  K7 p4 m2 C<>改键引起的提示音。
方法2：</P>
<>void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &amp;Key)
{
7 d: c3 O% Y, h" c" w  if(Key == VK_RETURN)
2 _1 q# K$ Q3 W5 \  {
: x. K& y; j1 ~9 R, g( w: e    SendMessage(this-&gt;Handle, WM_NEXTDLGCTL, 0, 0);
    Key = 0;
  }
}
" G5 v6 j2 C0 Z3 j- k这里的VK_RETURN可以换成下面的虚拟键值：
: H0 h, ^7 @4 r2 y" m键定义：在　winuser.h
#define VK_SPACE 0x20
  f4 i& D! ^8 n8 B$ X#define VK_PRIOR 0x21
#define VK_NEXT 0x22
#define VK_END 0x23
#define VK_HOME 0x24
! W3 n) o) A4 S6 p: s: {5 ^% `4 C#define VK_LEFT 0x25
#define VK_UP 0x26
#define VK_RIGHT 0x27
#define VK_DOWN 0x28
#define VK_SELECT 0x29
/ i- N0 }1 u1 s1 c9 x% [#define VK_PRINT 0x2A
1 c& p" q2 d) |/ K#define VK_EXECUTE 0x2B
% p8 a- i# Y" {- t% s/ S* S#define VK_SNAPSHOT 0x2C
#define VK_INSERT 0x2D
% [8 k" W$ Q/ d6 c+ w#define VK_DELETE 0x2E
+ F3 v# h" M! d( \#define VK_HELP 0x2F
*****************************************************************
" V; \) t: V( F+ M将Pannel上的所有的Edit控件的Text属性清空：</P>
<>for(int i=0; i&ltanel1-&gt;ControlCount; i++)
{
5 s. o" l! ]. F/ F% \7 a7 c9 |        if( Panel1-&gt;Controls-&gt;ClassNameIs("TEdit"))
- B/ u- ]5 ~3 b  z        {
5 e3 X2 W* Y9 K) g                ((TEdit *)Panel1-&gt;Controls)-&gt;Text = "";</P>
<>        }
/ c6 P$ W! e* e" Z- \$ J}
*****************************************************************
Edit控件OnKeyPress和OnKeyDown事件对应的消息：</P>
<>Edit得OnKeyPress事件对应的是Windows得WM_CHAR消息,  
而OnKeyDown对应的就是WM_KEYDOWN消息。
8 n( A! x; f, B8 q( l/ h+ j7 Y) {*****************************************************************
6 Q, o) q5 r% _动态创建Edit组件：</P>
<>void __fastcall TForm1::Button1Click(TObject *Sender)
{
TEdit *ed;
' t2 m! g4 l, t6 j% Ued=new TEdit(this);
/ Q3 G0 y! j" _3 {1 Z. X6 H, bed-&gtarent=this;
ed-&gt;Left=10;
9 m/ |9 _/ Z1 }9 \3 Fed-&gt;Top=10;
}  
Edit控件的Parent属性在动态生成时一定要赋值，否则它将无法显示。
*****************************************************************
得到其它窗体上的Edit控件的Text属性值：</P>
<>void __fastcall TForm1::Button3Click(TObject *Sender)
3 K0 a9 E9 S  @1 ^6 Y{
  HWND ff,tt;
  char s[20];
0 V* R0 y  h3 d* O  ff=FindWindow(NULL,"运行");//首先运行标题为“运行”的窗体
6 P0 q( V1 K/ m: i$ G  if (ff!=0)
7 a0 M- Y8 F' A( L1 |  {
    tt=GetNextDlgTabItem(ff,NULL,false);
$ j' h2 L3 N  _6 C    SendMessage(tt,EM_SETPASSWORDCHAR,0,0);
    SendMessage(tt,WM_GETTEXT,20,(long)(s));
! Y+ n, f0 Z, h( h    Edit2-&gt;Text=String(s);
  }
, _/ Y) h! c; k. c4 ]}
5 f. h# x( Y' F% u0 e如果所要得到的Edit控件的Tab属性不是第一个可以多次利GetNextDlgTabItem
4 s6 u( ~# Z9 n) c7 [, w8 R方法。</P>