2种方法实现:
1:重画的时候分别画数据刻度,数据文字和曲线。
在函数里控制Textout的数值文字。
2:在image1上重新建一个image2用来专门画坐标和曲线。
注意 transparent取true,以造成在一个画面的效果。
这就是图层。photoshop上常用的东西。
//form上放置一个timer ,一个image
动画效果就如:yuzk2005所说了。
你可以在全局变量里声明一个静态数组。
var
subway:array [0..10] of Tpoint;
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
image1.Canvas.Brush.Color:=clwhite;
image1.Canvas.FillRect(image1.ClientRect);
//擦除旧图象
for i:=10 downto 0 do
begin
if i=0 then
begin
subway.X:=1+random(20)+random(50);
subway.Y:=2+random(20)+random(20);
break;
end;
subway.X:=subway[i-1].X;
subway.Y:=subway[i-1].Y;
end;
//新数据入队
for i:=0 to 10 do
begin
if i=0 then
begin
image1.Canvas.MoveTo(subway.X,subway.Y);
continue;
end;
image1.Canvas.LineTo (subway.X,subway.Y);
end;
//画出新图象,完成动画效果
end;
哎,都有人回答了。。。。