edit中怎样让回车换到下一个edit(50分)

S

Serena

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #1

procedure TForm9.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
key:=9;
end;

执行后没反应，光标不会跳到edit3。

 

C

cnaoszh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #2

将form的keyview设为true
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_RETURN then Perform(CM_DIALOGKEY,VK_TAB,0);
end;

 

T

tinytao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #3

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_RETURN then selectNext(activecontrol,true,True);
end;

 

S

Serena

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #4

to cnaoszh:将form的keyview设为true,对其他的输入会不会有影响？

 

R

redsky.l

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #5

if key=13 then edit3.SetFocus;

 

间

间接点球

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #6

一个笨方法（如果你只有两个Edit框）
procedure TForm9.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=#13 then
Edit3.SetFocus;
end;

执行光标会跳到edit3。

 

Q

qxb_

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #7

sendmessage(handle,wm_nextdlgctl,0,0)

 

S

Serena

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #8

多人接受答案了。

 

D

dong1024

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #9

用这个保证可以　
if key=#13 then
perform(cm_dialogkey,vk_tab,0);