滚动字幕控件问题！

Question

VG Library II控件可以水平和垂直滚动http://www.vglib.com,你下载它的demo可执行文件就可以看到效果了..

Answer 1

我自己写的，不知道对你有没有用：）在panel上面放两个labelprocedure TForm1.Edit1Change(Sender: TObject);
begin
  Label1.Caption:=Edit1.Text;
  Label2.Caption:=Edit1.Text;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Left:=Panel1.Width;
  Label2.Left:=Label1.Left+Panel1.Width;
  Edit1Change(nil);
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Left:=Label1.Left-5;
  Label2.Left:=Label2.Left-5;
  if Label1.Left=0-Panel1.Width then
    Label1.Left:=Label2.Left+Panel1.Width;
  if Label2.Left=0-Panel1.Width then
    Label2.Left:=Label1.Left+Panel1.Width;
end;

Answer 2

clasj(我蛮怀) :
   你写的这个滚动还可以，不过就是滚动时不能等前一屏消失完后才从右边出来下一屏，望改进！！

Answer 3

兄弟不时我行不行的问题，不知道什么原因，滚动字幕控件在WIN98下就是死机。郁闷！
我用了大概5\6个各种滚动字幕控件啦。

Answer 4

当然是可以，如果在WIN98下不会慢慢消耗内促而死机的话
eMAIL: [email protected]