delphi7 同时按下Ctrl+H键写法,键值

OnKeyDown事件:

if  (ssctrl in shift) and (key = $48)   then

begin
     ShowMessage('1111');

end
else
begin

end;

 

posted on 2016-07-05 10:17  那里的天空  阅读(574)  评论(0编辑  收藏  举报

导航