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

var
Form2: TForm2;

implementation

{$R *.dfm}

{ TForm2 }

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
inherited CreateParams(Params);

Params.ExStyle := Params.ExStyle
or WS_EX_APPWINDOW;
Params.WndParent := GetDesktopwindow;
end;


刚才我测试通过了的.效果出来了的.