将你的子窗体的FORMSTYLE 属性设置为FSSTAYONTOP

解决方案 »

  1.   

    两个API;
    SetActiveWindow
    FlashWindow
      

  2.   

    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    FlashWindow(handle,true);
    end;
      

  3.   

    最前:
    SetWindowPos(handle,hwnd_TopMost,0,0,0,0,swp_NoMove or swp_NoSize);
    闪烁:
    SetActiveWindow
    FlashWindow
      

  4.   

    setwindowspos API函数用法:
      with self do 
        setwindowspos( Hande,left,top,width,Height,TH..
                       SW_NOACTIVE or SW_NOSIZE)
          
    记不清了,自己查一下API或Delphi帮助
      

  5.   

    API函数:BringWindowToTopThe BringWindowToTop function brings the specified window to the top of the Z order. If the window is a top-level window, it is activated. If the window is a child window, the top-level parent window associated with the child window is activated.