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

ilikenba

<>本文由ilikenba收集整理</P>
- c3 V' L6 `' ~3 @& d% K<>Edit控件作为密码输入框：</P>
<>Edit控件有一个PasswordChar属性，它的默认值为“#0”，当改变</P>
<>asswordChar的值后，即不为“#0”时，
& g8 ?% ]9 n! V1 B7 I- p不显示所输入的字符，而以PasswordChar所设置的字符显示。当PasswordChar</P>
% f9 C, a" @/ a3 I2 X<>的值为“#1”至“#9”时，
8 T, g. N. m- T6 |Edit也是密码输入框，当输入密码时，以一细竖条表示。剪切、复制对已设置为</P>
<>密码输入状态的Edit毫无作用。
& ]* V+ I% v' ?( r6 u*****************************************************************
Edit内显示图像：</P>
<>void __fastcall TForm1::Button1Click(TObject *Sender)
{
  HDC dc;
, c2 k+ q: D& F, ~  dc=GetDC(Edit1-&gt;Handle);   </P>
<>BitBlt(dc,0,0,Image1-&gt;Width,Image1-&gt;Height,Image1-&gticture-&gt;Bitma</P>
, m  F4 q' R) A* T6 {) H<>p-&gt;Canvas-&gt;Handle,
$ h; E1 E1 p. X  0,0,SRCCOPY);        
% ~0 S7 D- a! X  L4 P}
这里使用了BitBlt函数向Edit控件画图。
*****************************************************************
+ {& B+ j+ o, L! c去掉Edit控件回车后的提示音：</P>
<>void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &amp;Key)
6 A" [4 i7 j& ^. V0 p4 I3 s{
% {5 i, b, o' b6 \, j4 Y% [  if(Key==13)Key=0;        
}
5 P3 N7 \3 Y* \- L, G9 V就是拦截输入键，将其值置为0.
5 y2 h# Y% E2 A$ V*****************************************************************
去掉Edit进入时自动选择文本功能：</P>
<>将Edit控件的AutoSelect属性设为False.
*****************************************************************
用代码设置Edit选择文本：</P>
<>void __fastcall TForm1::Edit1Enter(TObject *Sender)
; J1 \- d/ R9 F{
  Edit1-&gt;SelStart=3;
  Edit1-&gt;SelLength=5;
, T! U% `& `$ e( X}
因为无论怎样设置属性Edit控件都不会从中间选择文本，所以只能编程实现。
因为SelStart是从0开始计数的。所以实际中是从第四个字符开始选择的。
  K) H' l9 p# U* C; l*****************************************************************
在Edit输入回车键时跳到下一个控件：</P>
<>void __fastcall TForm1:roEnter(TObject *Sender, char &amp;Key)
$ }, H) ]; Y. A. l5 U1 V% c, J6 ?{
5 c/ n/ h/ Y: y/ h; P" @" W  int i,od;
  TEdit *ed;
  if(Key!=13)return;
! n: U# x2 a/ S  ed=(TEdit *)Sender;
9 Q- N0 n- P9 X& @' b* ?  od=ed-&gt;TabOrder;
2 a$ H4 m; z4 Y1 d  for(i=0;i&lt;ControlCount;i++)
  {
    ed=(TEdit *)Controls;
/ D) U, K) ?( B5 I7 i    if(ed-&gt;TabOrder==(od+1))
. k: N  C6 K4 M8 }: T    {
5 Q. U/ r  ~  i1 `% Z8 @  H$ x0 w6 D      ed-&gt;SetFocus();
/ _$ j$ P2 t; w% Y+ ~$ U6 g      break;
    }
. k. X1 t: L* A8 X# |0 K  }
9 j- i, S' T/ m  Key=0;
' N* T" t9 a4 _2 j5 I) U5 w- D9 u}
//---------------------------------------------------------------</P>
<>------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &amp;Key)
{
  ProEnter(Sender,Key);
0 U8 b9 H& ~' M6 ^}
首先，通过键值判断是否为回车键，不是回车就不做处理。通过OnEnter事件的</P>
+ g" e2 U$ q" N<>Sender参数确定控件的TabOrder的值。寻找下一个Edit控件，当其TabOrder的</P>
<>值比本控件大一时，将焦点设置在该控件上，最后，
! J; n. |0 g  Y; |1 K将OnEnter事件所传递的键值Key设为0，既不让Edit控件处理改键，也消除了由</P>
1 j) I. s# B3 Y/ F5 \7 w<>改键引起的提示音。
- @! N  i9 C6 S$ D# F7 a方法2：</P>
<>void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &amp;Key)
{
  if(Key == VK_RETURN)
/ J9 |4 U) P3 ~  {
    SendMessage(this-&gt;Handle, WM_NEXTDLGCTL, 0, 0);
; E# e* j& v/ T8 a! e    Key = 0;
1 B6 [/ v# \6 Q  b/ U, }8 [  }
}
. b' n0 t3 e" M; c: c1 h5 Z* P这里的VK_RETURN可以换成下面的虚拟键值：
键定义：在　winuser.h
1 |+ u6 e, n. E#define VK_SPACE 0x20
#define VK_PRIOR 0x21
; d) O/ E: N2 S" n0 C#define VK_NEXT 0x22
1 I0 K( w7 E2 j3 w4 t0 ^* W/ F#define VK_END 0x23
#define VK_HOME 0x24
#define VK_LEFT 0x25
0 N9 d% }; i- w) c  [$ h4 Q0 _2 m#define VK_UP 0x26
#define VK_RIGHT 0x27
5 v5 W4 ?" o& g$ A#define VK_DOWN 0x28
#define VK_SELECT 0x29
#define VK_PRINT 0x2A
. l/ q* U' y1 r3 x#define VK_EXECUTE 0x2B
#define VK_SNAPSHOT 0x2C
+ m* w, K( d4 C#define VK_INSERT 0x2D
#define VK_DELETE 0x2E
#define VK_HELP 0x2F
*****************************************************************
将Pannel上的所有的Edit控件的Text属性清空：</P>
. ?+ N  ~' q& d% k  O8 h' ~<>for(int i=0; i&ltanel1-&gt;ControlCount; i++)
9 o! u# T$ [3 S  I! z) D{
        if( Panel1-&gt;Controls-&gt;ClassNameIs("TEdit"))
+ m5 h* Y0 B' q6 \/ M        {
                ((TEdit *)Panel1-&gt;Controls)-&gt;Text = "";</P>
7 b' G7 Z7 Q$ {( g<>        }
}
+ h) Q9 S+ @* m- @+ I) v: i*****************************************************************
Edit控件OnKeyPress和OnKeyDown事件对应的消息：</P>
0 o3 [" Z% S% U  C1 Z- t<>Edit得OnKeyPress事件对应的是Windows得WM_CHAR消息,  
而OnKeyDown对应的就是WM_KEYDOWN消息。
*****************************************************************
5 c( x: B" S% ]. y: s6 H/ F' s/ W动态创建Edit组件：</P>
<>void __fastcall TForm1::Button1Click(TObject *Sender)
{
TEdit *ed;
! h4 @; M: u0 G7 @, j9 R) ged=new TEdit(this);
; q( j5 O- c* U6 q8 L4 v8 sed-&gtarent=this;
ed-&gt;Left=10;
ed-&gt;Top=10;
}  
' I4 _! Y) p' [2 g% J" |+ eEdit控件的Parent属性在动态生成时一定要赋值，否则它将无法显示。
*****************************************************************
+ B; K; q% V$ O, ?1 }得到其它窗体上的Edit控件的Text属性值：</P>
6 q/ S6 y7 U- R+ V! Q* u<>void __fastcall TForm1::Button3Click(TObject *Sender)
3 e. F* f; R9 L6 A{
  HWND ff,tt;
" b$ X7 f9 ~- o+ u; R' o  char s[20];
0 M, H1 e0 F5 C( r: q3 V  ff=FindWindow(NULL,"运行");//首先运行标题为“运行”的窗体
  if (ff!=0)
# c9 M" s1 @2 G* ]# }2 S( y  {
    tt=GetNextDlgTabItem(ff,NULL,false);
$ R4 I# A; P* M7 R$ F5 G    SendMessage(tt,EM_SETPASSWORDCHAR,0,0);
    SendMessage(tt,WM_GETTEXT,20,(long)(s));
    Edit2-&gt;Text=String(s);
  }
}
  x6 g$ g0 S' e; ~, a如果所要得到的Edit控件的Tab属性不是第一个可以多次利GetNextDlgTabItem
: y# r1 }7 e, W) S$ W方法。</P>