新建工程,主窗体
Application.CreateForm(Tform1, form1);form1增加一个Button,新建子窗体,使用代码创建:
form2 := Tform2.Create(nil);
form2.Show;
form2在任务栏上显示
procedure Tform2.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WndParent := GetDesktopWindow;
end;运行,点击Button出现两个窗体form1和form2,这时,打开记事本,使其位置在form1和form2中间,关闭form2,form1竟然置到记事本前,求救