TCustomControl为什么接收不到方向键事件？(200分)

梦

梦回九月天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #1

我自已写了一个控件，它继承自TCustomControl,可是它就是接收不到方向键的输入，
（它会移向其它控件）。用DoKeyPress,WM_KEYUP,WM_KEYDOWN,WM_KEYPRESS都不行，
还望各位高手指点。
（200分一次给完）

 

D

djdsz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #2

重载TWINCONTROL的KeyDown事件就可以了。
函数原形：
procedure KeyDown(var Key: Word; Shift: TShiftState);override;

 

0

0738

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #3

是不是你搞错了，它会响应WM_KEYUP消息啊

 

梦

梦回九月天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #4

楼上两位大侠：
我已经按这种方法试过，但它就是有一些键盘可以，有一些不可以，例如：Page up ,Page down 是可以，可是方向键就是不行。
不知还有没有其它方法。

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #5

以前在Delphi1.0时遇到过这个问题, 后来改了他的源代码才行.

 

B

bubble

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #6

我也想关注一下.

 

0

0738

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-28

• #7

把你的代码贴出来吧，大家帮你试试

 

T

TK128

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-28

• #8

Delhpi 将 WM_KEYWDOWN 消息屏蔽了
你用CN_KEYDOWN就可以了
如：
定义： Procedure WMKeyDown(Var Msg: TMessage);Message CN_KEYDOWN;
实现：
Procedure WMKeyDown(Var Msg: TMessage);
Begin
if (Msg.wParam=VK_UP) Or (Msg.wParam=VK_DOWN) Then
Begin
// do something
End
Else Inherited;
End;

 

梦

梦回九月天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-28

• #9

To TK128：
　　　谢谢你的答案，请接受小弟的分数：200。小弟从不食言，分数一次给完。