窗体最前面的最好解决办法.

   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;

 

经过反复试验,这个效果是最好的.