用Delphi編寫圓周率模擬器[2]

　　procedure TForm1.FormCreate(Sender: TObject);
　　begin
　　// 畫亮綠色的正方形演示框
　　Image1.Canvas.Brush.Color:=clBlack;
　　Image1.Canvas.FillRect(Rect(0,0,199,199));
　　Image1.Canvas.Pen.Color:=cllime;
　　Image1.Canvas.Rectangle(0,0,199,199);
　　DoubleBuffered := True;
　　end;

　　接著放入一個Timer實現點的繪制以及π的計算：

　　procedure TForm1.Timer1Timer(Sender: TObject);

文章來源于領測軟件測試網 http://www.kjueaiud.com/

TAG: delphi Delphi DELPHI 編寫 模擬 圓周率