怎么获得焦点？(10分)

S

sohuandsina

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-22

• #1

我在edit1里输入按回车后，会自动跳到edit2里面等待输入。
begin
.........
end;

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-22

• #2

设置好tableorder 然后
onkeyup
case Key of
VK_Return://响应回车键。
begin
if not (ActiveControl is TDBGrid) and not (ActiveControl is TMemo) then
begin
PerForm(WM_NEXTDLGCTL, 0, 0);
end
else
if (ActiveControl is TDBGrid) then
with TDBGrid(ActiveControl) do
if selectedIndex < (FieldCount - 1) then
selectedIndex := selectedIndex + 1
else
selectedIndex := 0;
end;

 

T

t365

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-22

• #3

在edit1的KeyDown事件中写
if (Key = VK_Down)) then
Key=VK_TAB

 

D

dasa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-22

• #4

edit1.setfocus;
EDIT就获得了焦点。

 

S

sohuandsina

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-23

• #5

begin
if (Key = VK_return) then
edit2.SetFocus;
end;

 

S

suwle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-23

• #6

前面四位讲得都不错啊，呵呵！一个一个的都好热心哦！

 

P

panjf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-23

• #7

在EDIT1的ONKEYPRASS写
if (key = #13) then
edit2.setfocus;

 

弄

弄影

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-23

• #8

procedure TForm1.EDIT1KeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
if Key = VK_Return then
keybd_event( VK_TAB, MapVirtualKey( VK_TAB, 0 ), 0 , 0 );
end;

 

S

sohuandsina

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-05

• #9

多人接受答案了。