问个简单问题！！！！！(0分)

有两个窗体A和B，每个上有一个按钮分别为a和b，按a时让B窗体在A窗体的上面，按b时让A在B的上面，请问怎么做，先谢谢了！！！！

用API函数BringWindowToTop(hwnd) hwnd:窗口句柄

//unit1.pas
implementation
uses unit2;
{$R.dfm}
procedure TForm1.aClick(Sender: TObject);
begin
form2.show;
end;
---------------------------
//unit2
implementation
uses unit1;
{$R.dfm}
procedure TForm2.bClick(Sender: TObject);
begin
form1.show;
end;

呵呵，原来如此，多谢秃鹰大哥！