edit在执行ONKEYPRESS事件时候，回车键的处理(50分)

S

sunny_ok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-06

• #1

各位大虾：
如何在EDIT中点击回车键的时候触发EDIT的ONEXIT事件？
如果当前输入焦点是EDIT，则点击TAB键可退出当前焦点，
如何在点击回车键的时候，执行TAB键的功能？

 

D

dq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-06

• #2

在Edit的OnKeyDown事件里这样写应该可以——
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then Perform(WM_NEXTDLGCTL, 0, 0);
end;

 

H

huiboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-06

• #3

IF KEY=13 THEN xxx.SETFOCUS;

 

C

Crab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-06

• #4

还是那句话：为什么要这么用？用 tab 跳转是 windows 里的通用做法，应该让用户自己适应

 

W

wind2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-06

• #5

OnKeyPress事件
begin
if key = #13 then
SelectNext(ActiveControl, True, True);
end;

 

Z

zqmagic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-06

• #6

use api

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-06

• #7

在Edit的OnKeyDown事件里这样写
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then Key:=VK_TAB;
end

 

S

sunny_ok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-09

• #8

多人接受答案了。