Форум: "Основная";
Текущий архив: 2003.08.11;
Скачать: [xml.tar.bz2];
ВнизБегущая строка Найти похожие ветки
← →
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;
← →
Region (2003-07-28 13:54) [8]А как здесь поймать момент, когда строка полностью пробежала? т.е. хочется, чтобы когда строка пробежала, например, 1 или 2 раза (и именно тогда!), сменить на ней надпись. И вообшще, не располагает ли кто-нибудь таким компонентом, чтоб по нему останавливать, очищать и менять надпись легко без залезание я таймер или лабел?
← →
Region (2003-07-28 18:42) [9]Ни у кого нет?
← →
Dimich1978 (2003-07-28 21:13) [10]В чем проблема считаешь скока строка в пикселах, потом размер формы(если изменяется) и все весь алгоритм.
движется движется как только проехал последний пиксел, значит пора снова в начало.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.08.11;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c