一个edit,一个button,怎样在edit中输入完字符并按下Enter后才激活button事件?(10分)

  • 主题发起人 主题发起人 tcq
  • 开始时间 开始时间
T

tcq

Unregistered / Unconfirmed
GUEST, unregistred user!
一个edit,一个button,怎样在edit中输入完字符并按下Enter后才激活button事件?
thank you!
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
button2click(self);
end;
 
在edit的onkeypress事件中:
if Key = #13 then buttonclick(self);
 
分配积分
sorry
 
我用的是spinedit,也应该可以的吧。
但是怎么没反应呢?
 
后退
顶部