Бегущая строка

← →
Zheks (2003-07-28 11:28) [0]

Утро доброе! Никто не помнит, как при помощи Label_а сделать бегущую строку?

← →
Palladin © (2003-07-28 11:29) [1]

тебе насколько плавно бегущуюю надо?

← →
VISA (2003-07-28 11:35) [2]

Кидаешь на форму TTimer и в обработчике пишешь:
Label1.Caption:=Copy(Label1.Caption,2,Length(Label1.Caption)-1)+Label1.Caption[1];

← →
Zheks (2003-07-28 11:36) [3]

2Palladin>
ну это настроить не проблема, был бы код...

← →
Zheks (2003-07-28 11:40) [4]

2VISA>
Спасибо дорогая.......

← →
Palladin © (2003-07-28 11:52) [5]

ну посмотрим, как ты настроишь вышеприведенный код на попиксельный бег...

← →
Leran2003 (2003-07-28 13:09) [6]

Можна типа так сделать (справа-налево):

var
StartW:integer;
Plus:boolean;

procedure TForm1.FormCreate(Sender: TObject);
begin
StartW:=Label1.Width;
Label1.Alignment:=taRightJustify;

Label1.Caption:="ПРИВЕТ ТИПА!!!";
Label1.AutoSize:=true;
Label1.AutoSize:=false;

Plus:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not Plus then begin
Label1.Width:=Label1.Width-1;
if Label1.Width=0 then begin
Label1.Alignment:=taLeftJustify;
Label1.Left:=Label1.Left+StartW;
Plus:=true;
end;
end
else begin
Label1.Left:=Label1.Left-1;
Label1.Width:=Label1.Width+1;
if Label1.Width=StartW then begin
Label1.Alignment:=taRightJustify;
Label1.Width:=StartW;
Plus:=false;
end;
end;
end;

← →
Leran2003 (2003-07-28 13:15) [7]

т.е. так:

procedure TForm1.FormCreate(Sender: TObject);
begin

Label1.Alignment:=taRightJustify;

Label1.Caption:="ПРИВЕТ ТИПА!!!";
Label1.AutoSize:=true;

StartW:=Label1.Width;

Label1.AutoSize:=false;

Plus:=false;
end;

А как здесь поймать момент, когда строка полностью пробежала? т.е. хочется, чтобы когда строка пробежала, например, 1 или 2 раза (и именно тогда!), сменить на ней надпись. И вообшще, не располагает ли кто-нибудь таким компонентом, чтоб по нему останавливать, очищать и менять надпись легко без залезание я таймер или лабел?

Ни у кого нет?

В чем проблема считаешь скока строка в пикселах, потом размер формы(если изменяется) и все весь алгоритм.
движется движется как только проехал последний пиксел, значит пора снова в начало.

Бегущая строка Найти похожие ветки