A akosboy Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-05 #2 不停以不同的颜色画一个小圆，看上去就是一个闪烁的点了
牛 |牛角尖|+ Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-05 #4 Shape1.shape := stCircle; //圆形 Timer1.Interval := 100; //闪烁间隔 procedure TForm1.Timer1Timer(Sender: TObject); begin if shape1.Brush.Color = $00ff00ff then begin shape1.Brush.Color := $00ff0000; end else begin shape1.Brush.Color := $00ff00ff; end; end;
Shape1.shape := stCircle; //圆形 Timer1.Interval := 100; //闪烁间隔 procedure TForm1.Timer1Timer(Sender: TObject); begin if shape1.Brush.Color = $00ff00ff then begin shape1.Brush.Color := $00ff0000; end else begin shape1.Brush.Color := $00ff00ff; end; end;
A akosboy Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-05 #5 首先确定要画点的坐标x,y 加一个TIMER，根据你决定的频率改变image1.canvas.brush.color的颜色并且在 你要画点的坐标上画出一个圆或者矩形 image1.canvas.fillrect(rect((x-1),(y+1),(x+1),(y-1))); 一直到你不想让它闪烁的时候把timer enable:=false;就可以了
首先确定要画点的坐标x,y 加一个TIMER，根据你决定的频率改变image1.canvas.brush.color的颜色并且在 你要画点的坐标上画出一个圆或者矩形 image1.canvas.fillrect(rect((x-1),(y+1),(x+1),(y-1))); 一直到你不想让它闪烁的时候把timer enable:=false;就可以了
