5,386
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
internetcsdn 2003-08-23
- 打赏
- 举报
mark
DouZHlang 2003-08-23
- 打赏
- 举报
参精华区已有高手做好了总结，我刚看过
nhdj 2003-08-23
- 打赏
- 举报
结贴吧，别忘了给分 ^_^
sxlaq 2003-08-23
- 打赏
- 举报
这里人气是要高啊，刚发的帖子就有人回啊
nhdj 2003-08-23
- 打赏
- 举报
先将TForm1的KeyPreview设置为true.
然后加入:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) then
begin
key := #0;
Perform(WM_NEXTDLGCTL, 0, 0);
end;
end;
然后加入:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) then
begin
key := #0;
Perform(WM_NEXTDLGCTL, 0, 0);
end;
end;
patchclass 2003-08-23
- 打赏
- 举报
不会，没有这样玩过，帮你up
