为什么不能捕获WM_KEYDOWN消息？(50分)

yzykjh · 2004-02-05

procedure MyKeyDown(var msg: TWMKEYDOWN); Message WM_KEYDOWN; procedure TForm1.MyKeyDown(var msg: TWMKEYDOWN); begin    if (msg.Msg=WM_KEYDOWN) and (msg.KeyData=27) then begin       showmessage('ok');       close;    end; end;

fima · 2004-02-05

将msg.keydata 换成　msg.CharCode!

andy263 · 2004-02-05

procedure MyKeyDown(var msg: TWMKEYDOWN); Message WM_KEYDOWN; procedure TForm1.MyKeyDown(var msg: TWMKEYDOWN); begin   if (msg.Msg=WM_KEYDOWN) and (msg.KeyData=VK_Return) then begin      showmessage('ok');      close;   end; end;

江南大米 · 2004-02-05

if (msg.Msg=WM_KEYDOWN) and (Msg.CharCode=VK_RETURN ) then    begin      showmessage('ok');      close;   end;

yzykjh · 2004-02-05

楼上的朋友！ procedure MyKeyDown(var msg: TWMKEYDOWN); Message WM_KEYDOWN; procedure TForm1.MyKeyDown(var msg: TWMKEYDOWN); begin showmessage('ok');  //就连这句也没执行，说明消息什么被捕获。  if (msg.Msg=WM_KEYDOWN) and (msg.KeyData=VK_Return) then begin     showmessage('ok');     close;  end; end;

fima · 2004-02-05

to 楼主 　我在回答你这个问题前已经作了测试，完全可行

yzykjh · 2004-02-05

我的就是不行。这样，把你OK的代码贴出来好吗？

yzykjh · 2004-02-05

我试了一下，如果窗体什么都没有，消息就能捕获。如果有控件，消息就不能捕获。

江南大米 · 2004-02-05

是啊我就是在没有任何控件的状态下试验的，完全可以的！ 有了控件好像就因为有了焦点……不起作用了

weiwei81123 · 2004-02-05

把窗体的KeyPreview设为True

fima · 2004-02-05

to 楼主 　我已经前做的打字软件的时候也遇到过这种情况，请再试一试。 　Form1.KeyPreview := True;

WoDing · 2004-02-05

将form的keyPreview设为true再试试江南大米的方法。

fima · 2004-02-05

按下回复后才发现楼上一位已经在我前面了，不好意思，楼上一位，如果我看到你答复的话，我一定不答了，只慢了几秒钟，呵呵

江南大米 · 2004-02-05

我换了个写法，你试试呢？ procedure TForm1.WmKeyDown(var Msg: TMsg; var Handled: Boolean); begin    Handled:=False;    if (Msg.message=WM_KEYDOWN) and (Msg.WParam=VK_Return) then begin    showmessage('ok');    close; end; end; procedure TForm1.FormCreate(Sender: TObject); begin    Application.OnMessage:=WmKeyDown; end;

江南大米 · 2004-02-05

有一点问题，我的那个连消息窗口的VK_Return也捕获了，^_^

WoDing · 2004-02-05

＞＞楼上一位，如果我看到你答复的话，我一定不答了 我也是

yzykjh · 2004-03-27

接受答案了.

为什么不能捕获WM_KEYDOWN消息？(50分)

yzykjh

Unregistered / Unconfirmed

fima

Unregistered / Unconfirmed

andy263

Unregistered / Unconfirmed

江南大米

Unregistered / Unconfirmed

yzykjh

Unregistered / Unconfirmed

fima

Unregistered / Unconfirmed

yzykjh

Unregistered / Unconfirmed

yzykjh

Unregistered / Unconfirmed

江南大米

Unregistered / Unconfirmed

weiwei81123

Unregistered / Unconfirmed

fima

Unregistered / Unconfirmed

WoDing

Unregistered / Unconfirmed

fima

Unregistered / Unconfirmed

江南大米

Unregistered / Unconfirmed

江南大米

Unregistered / Unconfirmed

WoDing

Unregistered / Unconfirmed

yzykjh

Unregistered / Unconfirmed

Similar threads