procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style and not WS_CAPTION;
Params.Style := Params.Style or WS_POPUP;
//设为总在最上边
Params.ExStyle := Params.ExStyle or WS_EX_TOPMOST;
//设WINDOWS OWNER为DESKTOP WINDOWS
Params.WndParent := GetDesktopWindow(); //Params.WndParent := GetDesktopWindow;
end;
begin
inherited CreateParams(Params);
Params.Style := Params.Style and not WS_CAPTION;
Params.Style := Params.Style or WS_POPUP;
//设为总在最上边
Params.ExStyle := Params.ExStyle or WS_EX_TOPMOST;
//设WINDOWS OWNER为DESKTOP WINDOWS
Params.WndParent := GetDesktopWindow(); //Params.WndParent := GetDesktopWindow;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货