各位大虾，如何实现一个闪动的直线（表示告警的电力线），请多指教，谢谢！！！！！(100分)

Q

qikefei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-15

• #1

各位大虾，如何实现一个闪动的直线（表示告警的电力线），请多指教，谢谢！！！！！

 

C

chenhaobo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-15

• #2

自己做个Avi或者Gif，
简单点的，使用两条颜色不同的直线交替显示；

 

Q

qikefei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-15

• #3

[]感谢楼上的，我是个菜鸟，请问该如何实现交替显示呢？请详示。谢谢！

 

左

左右手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-15

• #4

你没隔一定时间把那条线的颜色改变，然后重画就可以了。

 

K

kenny.hu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-15

• #5

可以自己画呀
moveto
lineto
或者如果嫌麻烦，就摆一个shape设置其高度或宽度使其变成一条线，然后加一个timer

在里面写
if shape1.pen.color=clred then shape1.pen.color:=clyellow else
shape1.pen.color:=clred;

 

H

happylcq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-15

• #6

放个shape,timer,然后
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if shape1.Pen.Color = clRed then
shape1.Pen.Color := clBlue
else
shape1.Pen.Color := clRed;
end;

 

Q

qikefei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-15

• #7

感激不尽，谢谢！！！[]