窗体最小化后在工具栏

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm2 = class(TForm)
  private
      //procedure CreateParams(var Params: CreateParams) ;override;
      procedure CreateParams(var Params: TCreateParams) ;override;

  public

  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.CreateParams(var Params: TCreateParams) ;
begin
inherited  ;
  //Params.Parent := GetDeskTopWindow;
  params.WndParent := GetDeskTopWindow;
  Params.ExStyle := Params.ExStyle and WS_EX_ToolWindow;
end;

 

end.

转载于:https://blog.51cto.com/zsqztg/156724