当焦点是Button时，窗体的OnKeyDown事件为什么不能触发？(50分)

7

76liujing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-19

• #1

比如用tab键把焦点放到一个button上，
再按回车，但是不能触发form的Onkeydown事件。

请有知道的朋友正面回答我的问题，为什么不能触发form的Onkeydown事件，
我不需要知道其它实现方式。

 

W

woyaoying

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-19

• #2

因为你没有打开窗体的KeyPreview属性

 

7

76liujing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-19

• #3

KeyPreview已经设置为true了，但是还是不行

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-19

• #4

我试了一下,就是回车被过滤了
其他的都行

 

W

woyaoying

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-19

• #5

不是吧~~
你别的地方肯定写事件了，不介意将源码发给我。
或者我发给你个Demo，OK?给我你的邮箱地址~~

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-19

• #6

这恐怕是个固有的特性

 

K

kouchun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-19

• #7

不可能吧...把代碼貼上來看看,

 

7

76liujing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-19

• #8

procedure TForm1.FormKeyDown(Sender: TObject
var Key: Word;
Shift: TShiftState);
begin
ljShowMsg('ok',ljDtWarning,[ljOk]);
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
ljShowMsg('btn1',ljDtWarning,[ljOk]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
self.KeyPreview:=true;
end;

 

7

76liujing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-19

• #9

就这个，加个button到窗体上，
大家可以试试

 

7

76liujing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-19

• #10

to wqhatnet：
对，我就是问回车的事情！

 

S

shenloqi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-19

• #11

应该是因为回车触发的是TWinControl.CNKeyDown而不是TWinControl.WMKeyDown，至于为什么触发的是TWinControl.CNKeyDown则请参看TApplication.IsKeyMsg。
要触发窗体的OnKeyDown则要触发TWinControl.DoKeyDown，而这由WMKeyDown等等触发。

 

7

76liujing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-20

• #12

感谢shenloqi的回答，非常准确！