setfocus的用法

[wlq]

请看如下代码，我想在按下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;

用edit的setfocus方法显然可以,我想知道,上面的程序有何不妥?

[xiaonan]

把windows去掉

[Lin]

　　问题在这：(if hh = edit1.handle then)。当Button1发生Click事件时，Button1拥有输入焦点，实际上If语句永远是False，所以执行不到windows.SetFocus(edit2.handle);
　　解决办法：去掉If 语句。

[zcw]

procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.SetFocus;
end;