重载函数 procedure CreateParams(var Params: TCreateParams); override; 设置 Params.WndParent := GetDesktopWindow;