如何使一个程序可以象屏保一样在窗口的最前端显示?

如何使一个程序可以象屏保一样在窗口的最前端显示,我用setwindowpos函数,不能达到我的要求!

解决方案 »

  1.   

    procedure TForm1.FormCreate(Sender: TObject);
    begin
    form1.formstyle:=fsStayOnTop;
    end;
      

  2.   

    SetWindowPos(Form1.handle, HWND_TOPMOST, Left, Top, Width, Height,0);
      

  3.   

    FormName.FormStyle := fsStayOnTop;^_^
      

  4.   

    FormName.FormStyle := fsStayOnTop;
      

  5.   

    FormName.FormStyle := fsStayOnTop;
    FormName.BorderStyle := bsNone;
      

  6.   

    procedure TForm1.FormCreate(Sender: TObject);
    begin
    form1.formstyle:=fsStayOnTop;
    end;
     就行了，该结贴了~~~
      

  7.   

    不管用的.如果POWERPOINT打开,播放PPT的时候,就看不到拉!!!