Бегущая строка в about box ?

← →
Squ (2002-10-22 07:26) [0]

Может есть у кого то идеи как наиболее просто и красиво сделать "бегущую строку" ?
Т. е. чтобы в каком-нибудь контроле прокручивался текст вверх, наподобие того как это сделано в некоторых программах в About Box.

← →
gek © (2002-10-22 07:51) [1]

Посм как это сделано в Rx

← →
Semion © (2002-10-22 07:59) [2]

Использовать таймер, и пустить круговую смену символов -записуемых caption.

← →
Separator © (2002-10-22 08:04) [3]

> Semion © (22.10.02 07:59)

Внимательно почитай, что надо сделать. Прокрутка должна быть снизу вверх, а так получится только справо налево или слева направо.

← →
roadster (2002-10-22 09:01) [4]

Ну тык если в лабеле, то добавлять строку Chr(13) + Строка, а ежли в мемо или что похожее, то просто строку добавить.
Особенности: в лабеле текст надо книзу прибить, а после присвоения Application.ProcessMessages делать,
а мемо скроллировать надо. Как скроллинг сделать, где-то в этой конфе было.
Ну и в конец строки добавлять, а сверху затирать придется. Не знаю как лабель, а мемо на 64-х К, кажется, текста глюкнет

← →
Внук © (2002-10-22 09:05) [5]

Иходники TSecretPanel из RxCtrls.pas будут полезны :)

← →
SWD (2002-10-22 09:10) [6]

Привет
Загляни по адесу http://dupliksv.hut.ru/showcat.php?id=5
На этой странице будет описан модуль бегущего текста. Это не совсем то, что одна бегущая строка, но может понравится.

← →
SWD (2002-10-22 09:12) [7]

Привет
Загляни на http://dupliksv.hut.ru/showcat.php?id=5
и посмотри модуль "Бегущий текст"- может подойдет

← →
SWD (2002-10-22 09:12) [8]

Загляни по адресу http://dupliksv.hut.ru/showcat.php?id=5
и посмотри модуль бегущего текста, может подойдет

← →
Squ (2002-10-22 09:19) [9]

Ага, всем спасибо бо!

вот что-то сваял, тока ногами не бить)
procedure TForm1.btnClick(Sender: TObject); var st:String; begin if btn.Caption="Start" then begin btn.Caption:="Stop"; while btn.Caption="Stop" do begin with memo1 do begin st:=Lines[0]; Lines.Delete(0); Lines.Add(st); Sleep(500); Application.ProcessMessages; end; end; end else btn.Caption:="Start";//if

Можно взять панель и положить в нее Label. А на таймере двигать ее хоть снизу вверх, хоть слева на право

NUU
Убил напрочь! Самый быстрый способ!!!

Самое простое решение - использовать TRxSecretPanel

Бегущая строка в about box ? Найти похожие ветки