Текущий архив: 2002.08.22;
Скачать: CL | DM;

Вниз

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

← →
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 есть такой компонент.

---

← →
Yuri Btr ©   (2002-08-09 09:37) [4]

У меня есть пример на основе 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;

---

← →
Torn ©   (2002-08-09 15:40) [5]

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

---

Страницы: 1 вся ветка

Текущий архив: 2002.08.22;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.016 c