|
#1
|
|||
|
|||
Бегущая строка
Добрый день! Взял Panel , установил в Panel Label и изменил свойство Label.Aling:=alClient. Помогите пожалуста, как создать бегущюю траку в Panel используя Label.
|
#2
|
|||
|
|||
можно label не разворачивать, а сам label двигать:
бросаешь таймер и пишешь там: Код:
label1.Left:=Label1.left + 1; |
#4
|
|||
|
|||
Спасибо Всем кто ответил! Но есть проблема. Да , бежит, но не убегает.А надо чтобы убигала, ну типа как в плеере имя файла.
|
#5
|
|||
|
|||
Решил
Всем спосибо. Решил. Вдруг кому понадовится привожу пример:
все в onTimer Код:
Inc(C1); if C1<=39+tiCount then - 39 количество символов вмещяющихся в Label от края до края if C1<=tiCount then laTitl.Caption:=copy(NamFil,1,C1) else laTitl.Caption:=laTitl.Caption+' '-использовал два пробела else C1:=0; Установки теже что ивыше + laTitl.Alignment:=taRightJustify laTitl=Label1 tiCount- количество выводимых символов NamFil-стока с символами Последний раз редактировалось Admin, 22.06.2010 в 10:59. |
#6
|
|||
|
|||
Еще так можно:
Кидаешь таймер и Label1. Потом для таймера прописываешь: Код:
procedure TForm1.Timer1Timer(Sender: TObject); begin label1.left:=label1.Left+1; if Label1.Left > Form1.width then Label1.Left := Label1.Left-(Form1.width+Label1.Width); end; end. и обратно procedure TForm1.Timer1Timer(Sender: TObject); begin label1.left:=label1.Left-1; if Label1.Left = -Label1.Width then Label1.Left := Form1.width+Label1.Width; end; end. Последний раз редактировалось Admin, 22.06.2010 в 10:59. |
#7
|
||||
|
||||
Вот исходник бегущей строки готовая программа
|
#8
|
||||
|
||||
я делал так, в таймере брал первую букву из Label1.Caption и перемещал её в конец и т.д., вот вам и бегущая строка:
Код:
procedure TForm1.Timer1Timer(Sender: TObject); var first,tmp: string; begin first := Label1.Caption[1]; tmp := Label1.Caption; Delete(tmp,1,1); Label1.Caption := tmp + first; end; P.S. правда тут не учитывается длина в пикселях самого Label1 Коли навчався в школі я - в мені росли мозгЫ. КудИж вони поділися? гы-гы гы-гы гы-гы... ICQ: 593977748 Nick: Marvel Последний раз редактировалось Marvel, 22.06.2010 в 11:10. |