5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
xboy 2003-07-25
- 打赏
- 举报
谢谢咯
哈哈
你们真牛！！！！！！！
哈哈
你们真牛！！！！！！！
itlcx 2003-07-25
- 打赏
- 举报
procedure TForm1.Button1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then key:=0;
end;
begin
if key=#13 then key:=0;
end;
星星 2003-07-25
- 打赏
- 举报
#13
firetoucher 2003-07-25
- 打赏
- 举报
具体key=多少，查一下，好像是#13还是#27....
firetoucher 2003-07-25
- 打赏
- 举报
在button的OnKeyPress事件里写:
if key = VK_ENTER then Onclick(self);
if key = VK_ENTER then Onclick(self);
