当打开多个窗体时，如何实现每一窗体在WINDOWS任务栏都显示，象EXCEL那样

Question

当打开多个窗体时，如何实现每一窗体在WINDOWS任务栏都显示，象EXCEL那样

Answer 1

重载窗体的CreateParams方法：
protected
  procedure CreateParams(var Params: TCreateParams); override;...procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.WndParent := GetDesktopWindow;
end;

Answer 2

还是不行啊，代码如下：声明方法：
 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;但还是不行，在任务栏还是只有一个图标。

Answer 3

楼主:怎么能怀疑： sysu(死树)!!
你把代码要贴在要在WINDOWS任务栏显示的窗体上,而不是form1.
比如要把form2在任务栏中显示,就在form2中添加,呵呵....

Answer 4

superhjw:谢谢可是我是这样做的啊，有两个FORM，mainform(MDI主窗体)，form1(MDI子窗体)
我最初就是这样做的，在form1中重载窗提方法CreateParams，但是不行
怀疑是MDI窗体问题，将FORMSTYLE属性都该为FSNOMORL，还是不行
哪里错了啊救救我吧！！

Answer 5

呵呵，应该是MDI窗体问题，将FORMSTYLE属性都该为FSNOMORL，就行了