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);
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/