我想做一个测试控件，让DBEDIT敲回车键可以跳到下一个控件，遇到了问题。(100分)

W

windflower

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-29

• #1

我想做一个测试控件，让DBEDIT敲回车键可以跳到下一个控件，遇到了问题。
我把KeyPress事件重写如下：
procedure KeyPress(sender:TObject;Key:char);
begin
inherited KeyPress(Key);
if Key = #13 then //vk_return
begin
Perform (CM_DialogKey, VK_TAB, 0);
end;
end;
但是执行起来，敲回车时，没有反应，请问是什么地方不对？谢谢。

 

M

maming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-29

• #2

CM_DialogKey??????这个消息？

 

P

pt_email

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-29

• #3

我这样写：
procedure KeyPress(sender:TObject;Key:char);
begin
if Key = #13 then //vk_return
begin
key := #0;
perform(WM_NEXTDLGCTL,0,0);
end;
end;

 

G

grays

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-29

• #4

可以吧from的keyprview设成true然后
procedure Tform1.keyup(....)
begin
if key=13 then
selectnext(activecontrol,true,true)
end
就会跳到下个控件了，设好Tabstop

 

W

windflower

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-17

• #5

多人接受答案了。