5,931
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
xnake 2000-07-05
- 打赏
- 举报
还要把form的keypreview设成true
thinking_man 2000-07-05
- 打赏
- 举报
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (key='g')or(key='h')or(...) then
do your things;
end;
begin
if (key='g')or(key='h')or(...) then
do your things;
end;
