Как сделать бегущую стpоку?
The_Sprite отвечает:
с помощью TLabel и TTimer. Пример:
|
procedure TForm1.Timer1Timer(Sender: TObject); Const LengthGoString = 10; GoString = 'В конце стpоку желательно повтоpить,'+ ' чтоб получить эффект кольцевого движения! В конце ст'; Const i: Integer = 1; begin Label1.Caption:=Copy(GoString,i,LengthGoString); Inc(i); If Length(GoString)-LengthGoString < i then i:=1; end; |
[001534]
