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

Question

有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

Answer 1

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

Answer 2

好像一开始没写清楚，button1 是在 form1上的，button2是在form2上面的unit1已经引用了unit2了，照楼上的办法的话，unit2要引用unit1，变成交叉引用了啊。。

Answer 3

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