如何在Delphi中实现单文档窗口

Question

不好意思，占用了csdn的空间我想原来也有这样的问题，但我还是在问一下
如何将程序打开的每一个窗口都放在任务栏上（不包括对话框）

Answer 1

重载CreateParams方法
声明方法：
 private
  protected
  procedure CreateParams(var Params: TCreateParams); override;
    { Private declarations }
  public
    { Public declarations }
  end;重载：
procedure Tform1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
  Params.WndParent := GetDesktopWindow;
end;注意：FORMSTYLE属性都该为FSNOMORL