Как сделать бегущую ст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]

Содержание  Назад  Вперед

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---