请问，怎样让程序一到时间，就弹到最前呢？

小菜菜同学

<>就是让程序运行后，干点别的，程序运行完或一到时间，就不管你做什么，就一下子弹到最先，起一提示作用。就象有的下棋网络游戏，对方一下棋，棋盘就自动跳出来。</P>
<>望大侠解答一下，</P>[em02][em02]

ilikenba

<>用一个时钟控件，在OnTimer事件中加上Form2-&gt;Show();</P><>使窗体在最前面主要是重载Form的虚拟函数CreateParams，改变TCreateParams的成员WndParent就可以了。  
, u% ?& T+ M) y/ J+ |$ P2 _
class  TForm2  :  public  TForm  
) ^! M6 B  e7 k  v  w{  
' \7 ]/ S6 k: S__published:            //  IDE-managed  Components  
/ H3 {0 Y) D* K- k7 qprivate:            //  User  declarations  
protected:  
- R  g' r* J+ D/ f& j       virtual  void  __fastcall  CreateParams(TCreateParams  &amp;  Param);  
public:            //  User  declarations  
       __fastcall  TForm2(TComponent*  Owner);  
2 F, }3 D( |, J7 p! Z) Y. B};  

6 @+ i5 S9 t9 n" b: ]( k; ?4 lvoid  __fastcall  TForm2::CreateParams(TCreateParams  &amp;  Param)  
{  
2 A3 L8 N: A/ B  C0 W4 {/ D       //调用基类的函数  
9 Y$ s6 L- }: b. F# o4 n3 N       TForm::CreateParams(Param);  

       Param.ExStyle    &brvbar;=  WS_EX_TOPMOST;   

: L5 u! n: T; f6 s       //这儿最关键的是只要Param.WndParent不是Application-&gt;Handle就可以了，  
' ]6 f$ p, p. i5 m7 Z( i       //不一定非要用GetDesktopWindow()，用其它的窗口也可以。  
( x: b. C6 m/ `- S# k- r+ h4 k5 s5 R) V       Param.WndParent  =  GetDesktopWindow();   
}
</P>