delphi设计中的问题

来源：百度知道 编辑：UC知道 时间：2024/06/04 00:17:50
为什么我设了 在edit1 edit2 edit4 edit5 combobox1里 的onkeydown 事件没效果 下面是我建表的源码 表其他正常 就是按enter 换行的事件没用

procedure Tupdate.BitBtn1Click(Sender: TObject);
begin
if (edit1.text='') or (edit2.text='') or(edit4.text='') then
begin
showmessage('输入不能为空,请重新输入');
edit1.setfocus;
exit;
end
else
begin
table1.Open;
if not table1.locate('账号;密码',vararrayof([edit1.text,edit2.text]),[locaseinsensitive]) then
begin
messagebox(0,'输入的账号或原密码不正确,请重新输入','提示...',mb_okcancel+mb_iconerror);
edit1.clear;
edit2.clear;
edit4.clear;
edit5.Clear;
edit1.SetFocus;
exit;
end
else
if edit4.text<>edit5.text then
begin
table1.Open;
messagebox(0,'新密码和二次确定密码不一致,请重新输入','提示....',mb_okcancel+mb_iconerror);
edit4.clear ;
edit5.Clear;
edit1.SetFocus;
exit;
end

else
table1.Open;
if m

你是想按回车键使光标在几个控件中移动吗？
delphi中回车自动跳转到其他控件，不是你这种办法，你应该先设置控件的顺序（用tab），再在窗口的formkeypress事件中写入
if key=#13 then
begin
key:=#0;
perform(wm_nextdlgctl,0,0);
end;
然后在各控件的onkeypress事件中执行formkeypress事件即可完成回车键使光标在各控件中移动