Форум: "Основная";
Текущий архив: 2003.11.03;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Mag   (2003-10-24 17:32) [0]

Подскажите, как можно сделать бегущюю строку.

---

← →
BoBaH   (2003-10-24 17:36) [1]

Ставим таймер, у него по событию OnTimer меняем строку (выделять новую подстроку из полной строки метод Copy и т.д.).

То или не то?

---

← →
MaG   (2003-10-24 17:43) [2]

Напиши пример, пожалуйста

---

← →
BoBaH   (2003-10-24 17:51) [3]

const
n = 10;
var
super: string = "Бежит строка туда!";
i: integer;
...
procedure TForm1.OnCreate(Sender: TObject);
var
str: string;
begin
i := 1;
str := StringOfChar(" ", n);
super := str+super+str;
end;

procedure TForm1.Timer1OnTimer(Sender: TObject);
begin
Application.Caption := Copy(super, i, n);
Inc(i);
if i >= length(super)-n then i := 1;
end;

В синтаксисе полностью не уверен, т.к. нет Delphi под рукой...

---

← →
BoBaH   (2003-10-24 18:15) [4]

Т.е. в смысле там Application.Title вроде должен быть.

---

← →
MaG   (2003-10-24 18:25) [5]

Спасибо BoBaH.

---

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

Форум: "Основная";
Текущий архив: 2003.11.03;
Скачать: [xml.tar.bz2];

Наверх

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