public
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_TOPMOST OR WS_EX_ACCEPTFILES;
wndParent:=GetDesktopWindow;
end;
end;