S
superbenben2001
Unregistered / Unconfirmed
GUEST, unregistred user!
在一个窗体上放三个控件如下:
ScrollBox1 Timer1 Label1
属性如下:
Label1.captino:='动态字幕';
Timer1.Enabel:=True;
Timer1.interval:=200;
它原来代码如下:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Top:=label1.Top-8;
if label1.top<-label1.Width-30 then
label1.Top:=scrollbox1.Height;
end;
可以实现动态字幕!!1
但是我的理解是这样的;
label1.top:=Label1.top-8;
if lable1.top<scrollbox.top+lable1.height then
label1.Top:=scrollbox1.Height;
反而不可以实现动态字幕??
对于它原来的:
if label1.top<-label1.Width-30 then 不能理解,
哪位能说说究竟为什么会这样??
ScrollBox1 Timer1 Label1
属性如下:
Label1.captino:='动态字幕';
Timer1.Enabel:=True;
Timer1.interval:=200;
它原来代码如下:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Top:=label1.Top-8;
if label1.top<-label1.Width-30 then
label1.Top:=scrollbox1.Height;
end;
可以实现动态字幕!!1
但是我的理解是这样的;
label1.top:=Label1.top-8;
if lable1.top<scrollbox.top+lable1.height then
label1.Top:=scrollbox1.Height;
反而不可以实现动态字幕??
对于它原来的:
if label1.top<-label1.Width-30 then 不能理解,
哪位能说说究竟为什么会这样??