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

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

Бегущая строка [D6, WinXP]

DeQuick ©   (2004-03-23 12:49:00) 

Как сделать в своей программе бегущюю строку?

---

Серг   (2004-03-26 22:46:00) [1]

Я сделал так.
Const LengthGoString = 100;//меняется в зависимости от длинны GoString
     GoString='ПЕРСОНАЛ ДЛЯ ВАШЕГО БИЗНЕСА общедоступный городской банк вакансий и резюме и т.д.'

Var D:Integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
D:=1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
StatusBar1.Panels[3].Text:=Copy(GoString+GoString,D,LengthGoString);
Inc(D);
If Length(GoString+GoString)-LengthGoString<D then
   D:=1;
end;

---

Kair   (2004-03-25 10:37:00) [2]

Ещеможноипопариться:TLabel, TTimer. :)

---

MIV   (2004-03-24 23:13:00) [3]

Еще можно RXlibrary поставить

---

DeQuick   (2004-03-23 19:38:00) [4]

Понял!

---

IrviS   (2004-03-23 13:27:00) [5]

Возьми компонент Raize Components 3.0 и не парься

---

Наверх