Вниз
Скачать: CL | DM;

строка   Найти похожие ветки 

← →
Jeka   (2003-01-05 12:15) [0]

Здраствуйте мастера! Дайте пожалуйста любой пример бегущей строки
а то я сам пытался делать нече невыходит.
Зарание благодарен!


← →
DJ_Sedoy ©   (2003-01-05 12:19) [1]

Ну если в Caption или Label - то легко.

Const s = "Сама бегущая строка ";
Begin
for i:=1 to length(s) do
Label1.Caption:=copy(s, i, 10);
end;

По идее и с TEdit тоже самое.


← →
Дмитрий К.К. ©   (2003-01-05 12:28) [2]

Без таймера не обойтись.


← →
Kair   (2003-01-05 12:31) [3]

Бегущая строка - это которая внизу экрана справа на лево бежит?


← →
DJ_Sedoy ©   (2003-01-05 12:31) [4]

Да, можно эту процедуру в onTimer.


← →
Jeka   (2003-01-05 12:35) [5]

а в statusBar можно?


← →
DJ_Sedoy ©   (2003-01-05 12:37) [6]

Тоже самое, где есть свойство типа Text (Caption).


← →
Jeka   (2003-01-05 12:43) [7]

а еще есть примеры


← →
Дмитрий К.К. ©   (2003-01-05 12:51) [8]


> Jeka (05.01.03 12:43)
> а еще есть примеры


Использовать компонент Рэя Конопки.


← →
Song ©   (2003-01-05 12:52) [9]

А самому написать пример?


← →
Дмитрий К.К. ©   (2003-01-05 13:02) [10]


> Song © (05.01.03 12:52)
> А самому написать пример?


Лучше, чем у Конопки, не получится :D


← →
Jeka   (2003-01-05 13:08) [11]

а где взять


← →
Jeka   (2003-01-05 14:40) [12]


> DJ_Sedoy ©

я испрвил так для таймера
Label1.Caption:=copy(s, i, 10);
i:=i+1


← →
Kair   (2003-01-05 15:11) [13]

Я как-то так делал:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Label1.Left<-Label1.Width then Label1.Left:=Form1.Width
else Label1.Left:=Label1.Left-1;
end;


← →
Jeka   (2003-01-05 16:23) [14]

это лейбл двигается, а надо чтоб внутри него текст двигался

А вот еще вопрос как сделать титры как в кино?


← →
Demiurg ©   (2003-01-05 17:49) [15]

Почему именно таймер? Можно в отдельный поток это запихнуть...


← →
Дмитрий К.К. ©   (2003-01-06 09:27) [16]


> Demiurg © (05.01.03 17:49)


Челу, который спрашивает


> Jeka (05.01.03 12:35)
> а в statusBar можно?


рановато еще про потоки грить...



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

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



Память: 0.47 MB
Время: 0.01 c
3-48934
JurMax
2002-12-21 01:33
2003.01.16
Как получить имя рабочей станции и имя серсера БД


14-49211
SPeller
2002-12-29 05:36
2003.01.16
Виртуальная реальность


3-48895
VDenis
2002-12-20 11:13
2003.01.16
Как сделать


1-49018
Song
2003-01-07 12:53
2003.01.16
Проблема: на событии onCreate формы1 надо отобразить


4-49363
alvin
2002-11-28 06:37
2003.01.16
Помогите разобраться с реестром




   Наверх