请教！在一个EDIT里，我想让输入字的长度等于3的时候就自动执行回车，该如何写？

Question

Procedure TForm1.FormKeyPress(Sender:Tobject;Var Key:Char);
Begin
　if Lenth(Edit_code3.text)=3 then
      SendMessage(Edit_code3.handle,WM_KEYDOWN,0,13);　　
End;
perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}不知道这句对你有用没有
 

Answer 1

我想你肯定是在OnKeyPress、OnKeyDown、OnKeyUp中编写的这些代码
你可以这样：
在OnKeyPress中时:
Key:=#13;在OnKeyDown、OnKeyUp中时:
Key:=13;

Answer 2

在Edit的onchang事件中写不就可以了！

Answer 3

楼上的没错，支持
只有这句应该是
SendMessage(Edit_code3.handle,WM_KEYDOWN,13,0)

Answer 4

我来晚了！！
stiwin(【ΨμΩσΣΦΩΧ】『海蜃』) (
说的对！

Answer 5

OnKeyPress()
中判断if Length(Edit.Text) = 3 then
      begin
      
     //你想做的事；
     end;