setfocus/getfocus的用法(60分)

Q

qlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-01

• #1

请看如下代码，我想在按下button后，输入焦点从edit1转到edit2,但是
好象不行。两个edit都没有了焦点
procedure TForm1.Button1Click(Sender: TObject);
var hh:hwnd;
begin
hh:=getfocus;
if hh=edit1.handle then
windows.SetFocus(edit2.handle);
end;

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-01

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
hh:hwnd;

begin
hh:=GetFocus;
if (hh=Edit1.Handle) then
Windows.SetFocus(Edit2.Handle)
else
Windows.SetFocus(Edit1.Handle);
end;

你首先要确定焦点在Edit1上

 

Q

qlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-01

• #3

好象不行
edit2总是无法获得焦点

 

L

lha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-01

• #4

试试MouseUp事件

 

C

ccweifen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-01

• #5

procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.SetFocus ;
edit2.SelStart :=0;
edit2.SelLength :=0;
end;

 

Q

qlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-01

• #6

用edit的setfocus方法显然是可以的
我还想知道我上面的代码为什么出错？

 

O

o*o

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-02

• #7

因为你点击BUTTON时，FOCUS已转移到BUTTON上了。
你试试：
hh:=getfocus;
if hh=Button1.handle then
windows.SetFocus(edit2.handle);

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-02

• #8

>>

 

Q

qlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-02

• #9

多人接受答案了。