简单的送分问题!!!!!!(20分)

T

txyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-14

• #1

我在dbedit1中回车后,怎么进入dbedit2中?也就是焦点到下一个?
procedure TForm1.FormKeyPress(Sender: TObject
var Key: Char);
begin
if key=#13 then
SelectNext(ActiveControl,True,True);
end;
这样好像不行啊!!

 

轩

轩辕散光

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-14

• #2

你要把tab顺序设置正确阿

 

T

terry_lzs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-15

• #3

按照你的代码，下一个获得焦点的应该与你按tab键的相同，如果你并不需要按照tab顺序，
你可以写成
procedure TForm1.FormKeyPress(Sender: TObject
var Key: Char);
begin
if key=#13 then
dbedit2.setfocused;
end;

 

N

newsweep

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-15

• #4

好像還要把Form的KeyPreview設為True吧
要把tab顺序设置正确
幹脆如此？
key:=#0;
//傳出一個移到下一個控件的信息
postmessage(handle,wm_nextdlgctl,0,0);

 

P

powerjet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-15

• #5

个人认为terry_lzs的方法好些

 

T

txyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-15

• #6

可是我有8个dbedit控件啊

 

小

小人物

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-15

• #7

agree with newsweep,

 

R

rookie_ron

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-15

• #8

或者
在edit的keypress事件中加入：
if key = #13 then
FindNextControl(Sender as TWinControl, true, true, false).SetFocus;

 

T

txyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-15

• #9

多人接受答案了。