如何在开发过程中控制delphi窗口的弹出效果。

Question

楼上老大说的是在win2000下（winme 我不清楚）
若是在9x下，只好自己动手了！
去vcl.vclxx.org找控件啊

Answer 1

//Form1.Width := 160; Form1.Height := 40; Timer1.Interval := 1;procedure TForm1.FormShow(Sender: TObject);
begin
  Timer1.Enabled := True;
end;procedure TForm1.Timer1Timer(Sender: TObject);
var
  I: Integer;
begin
  Timer1.Enabled := False;
  for I := 0 to 100 do
  begin
    SetBounds(Left - 2, Top - 2, Width + 4, Height + 4);
    Sleep(1);
  end;
end;