请教有关一个回车跳位的问题!(20分)

  • 主题发起人 dwing2002
  • 开始时间
D

dwing2002

Unregistered / Unconfirmed
GUEST, unregistred user!
我想在一个EDIT控件中,当在可KeyPress中(不可以OnExit),打入回车键时会做BUTTON的
ONCLICK事件!我该怎写这段代码吗?我写了一段代码,但不行,大哥们可以帮我看看吗?
procedure TLoginForm.UserPasswordEditKeyPress(Sender: TObject;var Key: Char);
begin
if key=#13 then begin
  Buttonclick(nil);
end;
end;
 
把那个button的default设置成true可以完成你要的功能
 
代码没错。
 
if key = #13 then
button.click;
 
代码没错,我验证过了。
 
我找到原因了!谢谢各位大哥帮忙!
 
接受答案了.
 

Similar threads

顶部