OnKeyUp事件不响应按键？(100分)

G

gsh2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-22

• #1

已经设置form的KeyPreview为True,可是onkeyup事件不响应按键，是何缘故？偶然发现可以响应Tab键，但别的键不响应。
procedure Tmainform.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
showmessage('aa');
end;

 

B

bjaman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-22

• #2

你的问题反映到我的电脑上却是完全正常的。岂不怪哉？

 

峻

峻祁连

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-22

• #3

我试了，可以相应的啊

 

P

pihome

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-22

• #4

估计还是你某些地方处理了这些事件，比如第三方控件之类的
要不然你新建一个Project，再试试这样写有没有问题

 

G

gsh2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-22

• #5

pihome：第三方控件是用了，但如何检测其是否已经处理过formkeyup事件？如果这样的话又该如何使自己定义的事件被成功触发？

 

峻

峻祁连

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-22

• #6

设断点跟踪一下 看看到底执行了没有。

 

P

pihome

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-22

• #7

看它的源代码（如果有的话），找它处理键盘消息的代码，将之修正过来
不行的话那就处理 Application.OnMessage，大致如下：
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=AppMsg;
end;

procedure TForm1.AppMsg(var Msg: TMsg; var Handled: Boolean);
begin
if IsChild(form1.Handle,Msg.hwnd) and (Msg.message=WM_KEYUP) then
ShowMessage('aa');
end;

 

G

gsh2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-19

• #8

多人接受答案了。