自动弹出窗口

Question

我想要DELPHI做出像诺顿中毒警报的那种窗口不知道要怎么做才可以呢。

Answer 1

每次都打开一个自己设计的Form不就可以了。要是需要的是Foxmail样子的窗体，可以用CnPack VCL，其中有一个CnFoxmailFrm的单元。使用请查看单元中的说明。

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
begin
    width:=199;
    height:=156;
    left:=screen.Width-width-3;
    top:=screen.Height;end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
   top:=self.Top-10;
   if top< 581 then Timer1.Enabled:=false;
end;