Форум: "Media";
Текущий архив: 2004.06.06;
Скачать: [xml.tar.bz2];

Вниз

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

← →
DeQuick   (2004-03-23 12:49) [0]

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

---

← →
IrviS ©   (2004-03-23 13:27) [1]

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

---

← →
DeQuick   (2004-03-23 19:38) [2]

Понял!

---

← →
MIV ©   (2004-03-24 23:13) [3]

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

---

← →
Kair ©   (2004-03-25 10:37) [4]

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

---

← →
Серг   (2004-03-26 22:46) [5]

Я сделал так.
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;

---

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

Форум: "Media";
Текущий архив: 2004.06.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.045 c