N ncyht Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-31 #1 ; 在form中不管光标在哪 。。只要按“F2”,就可以运行“ showmessage('OK')” ; ;如何处理啊。。。要代码。。。谢谢。。
Y YB_unique Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-31 #2 begin if keybd_event(VK_F2,MapVirtualKey(VK_F2,0),0,0) then showmessage('OK'); end;
C cgh0717 Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-31 #3 定义一个快捷键就行了。 当然，定义快捷键的最方便方法就是用TActionList就行了。 先用ActionList创建一个组，再添加一个ActionListItem， 再把该 ActionListItem的ShortXXX设为F2。那么你要写的代码是： //写入该 ActionListItem的Onexecute事件中。 showmeaasge("OK"); //还有别的方法的DFW们，说说看[8D]
定义一个快捷键就行了。 当然，定义快捷键的最方便方法就是用TActionList就行了。 先用ActionList创建一个组，再添加一个ActionListItem， 再把该 ActionListItem的ShortXXX设为F2。那么你要写的代码是： //写入该 ActionListItem的Onexecute事件中。 showmeaasge("OK"); //还有别的方法的DFW们，说说看[8D]
C cfx Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-31 #4 在FORM的KEYDOWN中写: if key = VK_F2 then ; showmessage('OK') ;
B bluerain Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-31 #5 cfx方法中别忘了将form的keypreview 设为true
P Puma Wang Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-31 #6 Formpreive ;=True ; 在 KeyDown 里 写 ： ; if ((integer(GetKeyState(VK_F2)) and integer($80))<>0) then ; Begin ; ; ;Showmessage('OK!') ; End 笨是笨了点..不过 也是中方法。
Formpreive ;=True ; 在 KeyDown 里 写 ： ; if ((integer(GetKeyState(VK_F2)) and integer($80))<>0) then ; Begin ; ; ;Showmessage('OK!') ; End 笨是笨了点..不过 也是中方法。
