public procedure Createparams(Var Params:TCreateParams);override;procedure TFRM_PDF.Createparams(var Params: TCreateParams);begin inherited; Inherited CreateParams(Params); With Params do begin EXStyle := ExStyle or WS_EX_TOPMOST; WndParent := GetDesktopWindow; end;end;