在Form的OnKeyDown中进行判断,用下面的语句试一下: procedure form1.formkeydown(sender:Tobject;var key:word;shift:Tshiftstate); begin if shift>=[ssShift] and (key=VK_LR) then button1click(sender); end;
----------------------------------------------
-
procedure tform1.formkeydown(sender:Tobject;var key:word;shift:Tshiftstate); begin if (key=VK_control) and (key=vk_return) then showmessage('ok'); end; 为什么这个不行呀?
----------------------------------------------
-