如何让一个窗体显示在其他任何程序的最前面?就象qq窗体一样。
谢谢!

解决方案 »

  1.   

    网上好多源码,怎么就舍不得去找找。把窗体的FormStyle设为ftStayOnTop-----------------
    行舟
    欢迎使用CSDN论坛浏览器
    http://blog.xingzhou.com
    http://blog.csdn.net/xingzhou/
      

  2.   

    Self.FormStyle:=ftStayOnTop
    就可以了。
      

  3.   

    最后一个FormStyle设为ftStayOnTop的窗体将显示在其他任何程序的最前面
      

  4.   

    FormStyle设为fsStayOnTop。
    Public
      procedure Createparams(Var Params:TCreateParams);override;
    ...procedure TFormDrop.Createparams(var Params:TCreateParams);
    begin
      Inherited CreateParams(Params);
      With Params do
      begin
       EXStyle:=ExStyle or WS_EX_TOPMOST;
       wndParnet:=GetDesktopWindow;  //关键一行,用SetParent都不行!!
      end;
    end; 
      

  5.   

    wndParnet:=GetDesktopWindow;语句提示 wndParnet 未定义。我用 EXStyle:=ExStyle or WS_EX_TOPMOST;
    或//Params.Style := WS_SIZEBOX or WS_POPUP or WS_BORDER;
    都可以让程序放于最上面 但在两个程序来回切换操作若干次后就会被屏蔽到别的程序下面去了。请konhon(优华) 指教 谢谢
      

  6.   

    好了,我做好了。
    EXStyle:=ExStyle or WS_EX_TOPMOST;不用写就可以