CLX中Form.close的问题，在线等

[yuechuan]

有form1,form2,上面分别有按钮 button1,button2
button1的click事件写的是 form2.showmodal;
button2的click事件是 form2.close;


在VCL中的时候，form2 close以后，焦点会回到form1中的button1上
可是在CLX中，form2 close以后 ,form1呈现不被选中的状态，一定要鼠标在上面点一下，焦点才回到button1上面


这个问题怎么解决啊，如何上form2 close以后，焦点直接回到form1上啊
我的运行环境是 D7＋winXP

[xixuemao]

procedure TForm2.Button1Click(Sender: TObject);
begin
close;
form1.Button1.SetFocus;//加上这句就可以了。
end;

[yuechuan]

好像一开始没写清楚，button1 是在 form1上的，button2是在form2上面的

unit1已经引用了unit2了，照楼上的办法的话，unit2要引用unit1，变成交叉引用了啊。。

[jianke5555]

不知我的理解对不对?!!建议:
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.showmodal;
Button1.SetFocus;
end;

[yuechuan]

经实践，楼上正解，谢谢，结贴～～