Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.026 c
3-34672
Roka
2003-05-21 13:04
2003.06.12
Инкрементальный поиск по DBGrid


3-34730
Новачок
2003-05-23 15:55
2003.06.12
TQuery.FieldCount


3-34693
Marat111
2003-05-22 15:25
2003.06.12
Значение автоинкрементного поля


9-34661
[Baradoo]
2003-01-05 20:21
2003.06.12
Как сделать редактор карт типа как В Heroes III?


1-34837
avenger
2003-06-02 15:32
2003.06.12
Как узнать версию программы из неё же?