Form 任务栏标签

type
  TForm1 = class(TForm)
    procedure CreateParams(var Para: TCreateParams);override;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CreateParams(var Para: TCreateParams);
begin
  inherited CreateParams(Para);
  Para.Style :=Para.Style or WS_POPUP;
  Para.WndParent := GetDeskTopWindow;
end;

end.