Скачать: CL | DM;

Как сделать   Найти похожие ветки 

← →
prorok2   (2003-05-30 19:49) [0]

Доброго времени суток, мастера.
Вопрос такой: как из текстовой строки сделать "бегущую строку", которая отображалась бы в Label или еще как?
Может есть какие-нибудь компоненты?
Намекните хоть.

---

← →
Intell ©   (2003-05-30 20:11) [1]

Var
st1:ShortString;
begin
st1:=copy(label1.Caption,2,length(label1.Caption)-1);
st1:=st1+label1.Caption[1];
Label1.Caption:=st1;

это вешаешь на Timer. Если не заработает, скажи мне по мылу:
sergein@nojabrsk.ru

---

← →
muxec ©   (2003-05-30 21:36) [2]

Если размер label-a недостаточен для вмещения всей надписи, можно что-то типа

const labellength=20;
var frame,i,j:byte;
str:string;
procedure onTimer(...)
begin
Inc(frame);
if Frame=length(str) then Frame:=0;
for i:=0 to labellength-1 do
Label1.Caption[i]:=str[(i+frame) mod length(str)+1]
end;

---

← →
Александр из Минска ©   (2003-05-31 22:06) [3]

Тебе повезло. Я сам такое недавно спрашивал. Есть компанент TSecretPanel из RX Lib.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c