L liuyang Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #1 我想在TIMTER事件中随时检测是否程序按了ALT+S键,<br>如果按了触发一些事件,怎么处理呢/谢谢了?<br>好象是用到什么函数
W weichao9999 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #2 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;<br> Shift: TShiftState);<br>begin<br> IF (shift= [ssAlt]) and (key=83) then<br> showmessage('I am a good man! ');<br><br>end;<br>看一看吧,是不是这样。<br>
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;<br> Shift: TShiftState);<br>begin<br> IF (shift= [ssAlt]) and (key=83) then<br> showmessage('I am a good man! ');<br><br>end;<br>看一看吧,是不是这样。<br>