S Sands Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-05 #1 我在窗体中定义了一个<br>procedure WMChar(var szMessage: TWMChar); message WM_CHAR;<br>然后又放了一个BITBTN上去，发现在这个事件就触发不了。为什么呢？<br>到底怎样才能正确截取键盘事件，再将所按键显示在FORM上呢？ <br>
我在窗体中定义了一个<br>procedure WMChar(var szMessage: TWMChar); message WM_CHAR;<br>然后又放了一个BITBTN上去，发现在这个事件就触发不了。为什么呢？<br>到底怎样才能正确截取键盘事件，再将所按键显示在FORM上呢？ <br>
小 小人物 Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-05 #4 procedure WMChar(var szMessage: TWMChar); message WM_CHAR;<br><br>procedure TForm1.WMChar(var szMessage: TWMChar);<br>begin<br> showmessage(chr(szMessage.CharCode));<br>end;
procedure WMChar(var szMessage: TWMChar); message WM_CHAR;<br><br>procedure TForm1.WMChar(var szMessage: TWMChar);<br>begin<br> showmessage(chr(szMessage.CharCode));<br>end;
忘 忘情忘爱 Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-05 #6 procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);<br>begin<br>if key='a' then<br>……<br>end;<br>
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);<br>begin<br>if key='a' then<br>……<br>end;<br>
S Sands Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-05 #7 procedure WMChar(var szMessage: TWMChar); message WM_CHAR;<br><br>procedure TForm1.WMChar(var szMessage: TWMChar);<br>begin<br> showmessage(chr(szMessage.CharCode));<br>end;<br>我就是这么写的。但如果窗体是空的，没有任何问题。但如果一放上控件。就不能正常的运行。<br>还有previewkey是TFORM的属性吗？没找到啊。
procedure WMChar(var szMessage: TWMChar); message WM_CHAR;<br><br>procedure TForm1.WMChar(var szMessage: TWMChar);<br>begin<br> showmessage(chr(szMessage.CharCode));<br>end;<br>我就是这么写的。但如果窗体是空的，没有任何问题。但如果一放上控件。就不能正常的运行。<br>还有previewkey是TFORM的属性吗？没找到啊。
S Sands Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-05 #9 我看了一下DELPHI的HELP关于KEYPREVIEW的描述，应该是设为TRUE后，WM就会比键盘<br>事件更早收到请求。但为什么我还是不行呢？
