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

← →
Torn © (2002-08-08 23:45) [0]

Кто знает где взять и есть ли компонент бегущая строка?

← →
Voldemar © (2002-08-09 01:54) [1]

Делается на основе TLabel в течение получаса... Могу примерчик кинуть - как сам делал.

← →
mukha © (2002-08-09 07:00) [2]

Самый простой пример бегущей строки:

procedure TForm1.Timer1Timer(Sender: TObject); Var st1:ShortString; begin st1:=copy(Label1.Caption,2,length(Label1.Caption)-1); st1:=st1+Label1.Caption[1]; label1.Caption:=st1; end; procedure TForm1.FormCreate(Sender: TObject); begin Label1.Caption:=" Пример бегущей строки"; end;

Также бегущую строку можно сделать используя из RXLib к-т TSecretPanel

← →
LVG (2002-08-09 07:53) [3]

В RXLib есть такой компонент.

У меня есть пример на основе Canvas, олько я его делал исключительно в познавательных целях. Но с ним можно выводить бегущую строку везде, где есть свойство Canvas.

T1.OnTimer
_________________________
if ((textpos<PBx2.Width) And (T1.Enabled=true))
then
begin
textpos:=Trunc(PBx2.Width/150)+textpos;
PBx2.Canvas.TextOut(textpos,10,"HALLO !");
end
else
begin
textpos:=-20;
end;

всем спасиба компонент я не отыскал пришлось самому написать (всего 3 строчки кода)))))))))))))))

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