private
{ Private declarations }
procedure Createparams(var params: TCreateParams);override;
procedure Createparams(var params: TCreateParams);
begin
inherited CreateParams(Params);
with params do
begin
Style:=WS_POPUP;
ExStyle := WS_EX_TOOLWINDOW or WS_EX_TOPMOST or WS_EX_NOACTIVATE or WS_EX_WINDOWEDGE Or WS_EX_LAYERED;
WndParent :=GetDesktopwindow; //确实可以使用之为最前面
end;
end;
经过反复试验,这个效果是最好的.