| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Squ ©   (2002-10-22 07:26:00) 

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

---

AlGin   (2002-10-22 12:18:00) [1]

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

---

Manulo   (2002-10-22 10:48:00) [2]

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

---

NUU   (2002-10-22 10:43:00) [3]

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

---

MetalFan   (2002-10-22 09:26:00) [4]

вот что-то сваял, тока ногами не бить)

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


---

Squ   (2002-10-22 09:19:00) [5]

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

---

SWD   (2002-10-22 09:12:00) [6]

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

---

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

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

---

SWD   (2002-10-22 09:10:00) [8]

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

---

Внук   (2002-10-22 09:05:00) [9]

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

---

roadster   (2002-10-22 09:01:00) [10]

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

---

Separator   (2002-10-22 08:04:00) [11]

> Semion © (22.10.02 07:59)

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

---

Semion   (2002-10-22 07:59:00) [12]

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

---

gek   (2002-10-22 07:51:00) [13]

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

---

Наверх