非主窗体在任务栏显示按钮（简单好用）good

非主窗体在任务栏显示按钮

type

  TForm2 = class(TForm)

  private

    { Private declarations }

  public

    { Public declarations }

    procedure CreateParams(var Params:TCreateParams); override;

  end;

...

procedure TForm2.CreateParams(var Params: TCreateParams);

begin

  inherited CreateParams(Params);

  Params.WndParent := GetDesktopWindow;

end;

http://www.cnblogs.com/hs-kill/p/4683449.html