Неработает бегущая строка

[bookkc]

Вот программа, текст обновляется, и бегущая строка тоже обновляется нужно что- бы текст обновлялся, а бегущая строка ишла своим ходом... Помогите исправить!!!

[Ghost of Night]

Замени на это:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label2.Caption:=label1.Caption;
s:=Label2.Caption;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
Var
 s : String;
 i : Integer;
begin
 Label2.Caption := s;
 for i := 1 to (Length(s) - 1) do
    s[i] := Label2.Caption[i + 1];
 s[Length(s)] := Label2.Caption[1];
end;

[bookkc]

Нифига! Изначально выбивало ошибку тут

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label2.Caption:=label1.Caption;
s:=Label2.Caption;
end;

Потомя тупо объявил s:string; короче программа ошибку выдает и зависает

procedure TForm1.Timer1Timer(Sender: TObject);
 var
   s: string;
begin
label2.Caption:=label1.Caption;
s:=Label2.Caption;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
Var
    s: string;
 i : Integer;
begin
 Label2.Caption := s;
 for i := 1 to (Length(s) - 1) do
    s[i] := Label2.Caption[i + 1];
 s[Length(s)] := Label2.Caption[1];
end;

[Ghost of Night]

Объяви s:string как глобальную, а во всех остальных сотри...

[bookkc]

Бегущая строка уже не бегущая, стоит на месте

[Ghost of Night]

Отключи первый таймер.

procedure TForm1.Label1Click(Sender: TObject);
begin
Label1.Caption:=edit1.Text;
s:=Label2.Caption;
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label2.Caption:=label1.Caption;
Timer1.Enabled:=false;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
 i : Integer;
begin
 Label2.Caption := s;
 for i := 1 to (Length(s) - 1) do
    s[i] := Label2.Caption[i + 1];
 s[Length(s)] := Label2.Caption[1];
end;

После запуска, быстро нажимаешь на первый Лейбл

[Ghost of Night]

Работать должно, А для большего удобства, в строке, которая должна бегать, поставь пробел в конце. И ещё можно, включать второй таймер в первом, или по нажатию на кнопку.

[bookkc]

Сообщение от Ghost of Night

Отключи первый таймер.

procedure TForm1.Label1Click(Sender: TObject);
begin
Label1.Caption:=edit1.Text;
s:=Label2.Caption;
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label2.Caption:=label1.Caption;
Timer1.Enabled:=false;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
 i : Integer;
begin
 Label2.Caption := s;
 for i := 1 to (Length(s) - 1) do
    s[i] := Label2.Caption[i + 1];
 s[Length(s)] := Label2.Caption[1];
end;

После запуска, быстро нажимаешь на первый Лейбл

Программа выбивает ошибку

[Ghost of Night]

Пробовал???

После запуска, быстро нажимаешь на первый Лейбл