Как сделать

← →
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.

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