程序中有两个置顶的窗口，怎么始其中一个窗口永远在令一个窗口的上层。

Question

这两个窗口是这样置顶的：
procedure TfrmXxxx.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_TOPMOST or WS_EX_TOOLWINDOW;
  Params.WndParent := GetDesktopWindow;
end;
其中一个是主窗体，一个是子窗体，子窗体用show显示。
现在的情况是两个窗体可以互相覆盖，我希望子窗体永远在主窗体上面（即使失去焦点），并且主窗体可操作。
其实就是msn点击图标（用户列表里面的小人）弹出的那个资料框的效果。
谢谢了！

Answer 1

试试: child.parent := Application.MainForm;

Answer 2

ChildForm.FormStyle := fsStayOnTop;

Answer 3

子窗体里面这样设置就行了。
procedure TfrmXxxx.CreateParams(var Params: TCreateParams); 
begin 
  inherited; 
  Params.WndParent := Application.MainForm.Handle;
end;