Текущий архив: 2003.06.12;
Скачать: 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 вся ветка
Текущий архив: 2003.06.12;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.011 c
