用按钮控制窗口置顶,我使用的是十分简单的FormStyle:=fsStayOnTop;但是窗口中有一个TWebBrowser打开一个网页,用什么方法能实现置顶的同时不让TWebBrowser刷新呢,我再应用的时候只要一点击置顶按钮,页面就刷新

解决方案 »

  1.   


    var
      Url: string;
    begin
      Url := Self.WebBrowser1.LocationURL;
      Self.FormStyle := fsStayOnTop;
      Self.WebBrowser1.Navigate(Url);
    end;
      

  2.   

    谢谢您的回复,但是还是不能解决这个问题,现在的问题不是置顶之后WebBrowser不显示,而是他置顶的时候页面刷新,您给的答案也是一样刷新的
      

  3.   

    问题已经解决,不使用FormStyle := fsStayOnTop;
    而是使用
    SetWindowPos(
    hWnd: HWND;            {窗口句柄}
    hWndInsertAfter: HWND; {窗口的 Z 顺序}
    X, Y: Integer;         {位置}
    cx, cy: Integer;       {大小}
    uFlags: UINT           {选项}
    ): BOOL;
    就可以了