如何让一个窗体总是置前

谢谢！！！！

解决方案 »

  1.   

    setwindowpos(form1.Handle,hwnd_topmost,0,0,0,0,swp_nomove or swp_nosize);
      

  2.   

    Form1.Formstyle := fsStayOnTop
    行吗？
      

  3.   

    查找窗口句柄，然后BringToFront
      

  4.   

    最简单的在设计期
    Form1.Formstyle := fsStayOnTop
      

  5.   

    Form1.Formstyle := fsStayOnTop
    //运行期与设计期都可以
      

  6.   

    还是 SetWindowLong() 函数好用!
      

  7.   

    SetWindowPos(application.Handle,HWND_TOPMOST,0,0,800,600,SWP_NOOWNERZORDER);
      

  8.   

    这是我看到别人的：
    procedure Createparams(Var Params:TCreateParams);override;
    .....
    procedure TNotesForm.Createparams(var Params: TCreateParams);
    begin
      Inherited CreateParams(Params);
      With Params do  begin
        EXStyle:=ExStyle or WS_EX_TOPMOST OR WS_EX_ACCEPTFILES or WS_DLGFRAME;
        Params.WndParent:=GetDesktopWindow;
      end;
    end;
      

  9.   

    不要把简单问题复杂化，Form1.Formstyle := fsStayOnTop就行了
      

  10.   

    Form1.Formstyle := fsStayOnTop好心人真多，呵呵