如何从任务栏或者任务栏图标弹出消息框 例如qq的系统消息,登陆提示

解决方案 »

  1.   

    将显示消息的窗体用API置顶并去掉标题栏即可
      

  2.   

    从网上搞得 不知道是不是这个意思Foxmail、MSN的消息窗体的效果Procedure TForm1.FormCreate(Sender: TObject);
    Begin
      Form1.Top := Screen.Height;
      Form1.Left := Screen.Width - Form1.Width;
      SysTmrTimer.Enabled := True;
    End;Procedure TForm1.SysTmrTimerTimer(Sender: TObject);//SysTmrTimer是个Timer
    Begin
      //请将Interval属性设为10…
      Form1.Top := Form1.Top - 1;
      If Form1.Top = Screen.Height - Form1.Height Then
        SysTmrTimer.Enabled := False;
    End;End.
      

  3.   

    就是这个效果吧,可是能不能做到过一段时间后,弹出窗体自动关闭呢
    Procedure   TForm1.SysTmrTimerTimer(Sender:   TObject);//SysTmrTimer是个Timer 
    Begin 
        //请将Interval属性设为10… 设为10与设50的效果是一样的,用TIMER组件达不到10的定时的
        Form1.Top   :=   Form1.Top   -   1; 
        If   Form1.Top   =   Screen.Height   -   Form1.Height   Then 
            SysTmrTimer.Enabled   :=   False; 
              Timer2.ENABLED:=true
    End; 
    Timer2Timer(Sender:   TObject);//Interval属性设为3000
    begin
    Form1.hide
    self.Enabled   :=   False
    end