KeyDown事件中为何不能捕捉Tab事件？(20分)

C

cowbird

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #1

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_tab then
showmessage('ok');
end;

Tab键值是9，但运行后不显示OK，为什么

 

H

houanl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #2

你可以在KeyUP事件下.

 

C

cowbird

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #3

to houanl:
keyup不行
tab键比较特殊，keyup可以激发，但是是从其他控件按Tab键移动到该edit上，才可以激发。
而不是在edit中按Tab键，才激发，为什么？

我的目的是，在Edit1中按tab键，可以执行showmessage(ok);

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #4

注意，虽然那些控件可能截获不到，但是你的窗口一定可以！

procedure TMainForm.FormCreate(Sender: TObject);
begin
Application.OnMessage := ApplicationMessage;
end;

procedure TMainForm.ApplicationMessage(var Msg: TMsg; var Handled: Boolean);
begin
if (Msg.message = wm_KeyDown) and (Msg.wParam = VK_TAB) then
begin // 被窗口截获到 VK_TAB
Handled := True;
ActiveControl.Perform(wm_KeyDown, VK_TAB, 0); // 发回给当前有焦点的控件
end;
end;

现在你的控件都可以截获到(准确的说是收到) VK_TAB 了。

 

V

vefar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #5

beta的方法应该可以

 

C

cowbird

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #6

if (Msg.message = wm_KeyDown) and (Msg.wParam = VK_TAB) then
begin // 被窗口截获到 VK_TAB
Handled := True; //<1>
ActiveControl.Perform(wm_KeyDown, VK_TAB, 0); //<2>
end;
能不能解释一下<1><2>，我不理解，麻烦告诉我一下。
handled:=true就是让OnMessage阻止消息传递么？
那ActiveControl.Perform是啥意思？如果我要在Edit1处，按TAB键等于按A键，怎么写？
谢谢

 

C

cowbird

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #7

好象问题没有了结：（

 

Z

zbsfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #8

查查帮助文件不就全有了

 

C

cowbird

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #9

问题等待中。。。

 

W

wiseinfo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-02

• #10

在基类里面!!
最好不要想法设法弄那些!
好象很麻烦的士

 

L

lvxq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-02

• #11

在窗口里捕捉键盘事件，上面有了，然后把键值改了，
察看当前活动的组件，如果是edit1，那么，给edit1法个keyPress消息，

 

Z

zqs10597249

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-14

• #12

TForm1的属性keypreview设置为true

 

C

cjc861

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-14

• #13

可能是窗口过程wndpro过程截获键盘消息后，没有进行派发！你可以截获窗口消息或给窗口子类化

 

W

whynozg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-24

• #14

keypress

 

B

baidie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-18

• #15

能够显示ok呀，你可能是edit1没有setfocus吧，把所有的控键去掉，只留一个edit能够
显示的

 

F

fancy105

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-17

• #16

试试把TabStop设为False看看！