Delphi 让子窗口显示到任务栏上

//事件声明
procedure CreateParams(var Params: TCreateParams); override;

//事件主体代码
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do 
  begin
    ExStyle := ExStyle or WS_EX_APPWINDOW;
    WndParent := GetDesktopwindow;
  end;
end;

直接套上就能用.感谢大佬提供的代码