Советы по Delphi



              

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




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