Скачать: CL | DM;

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

← →
Гоша   (2007-01-21 16:07) [0]

Каким образом можно сделать бегущую строку с необходимыми текстом и скоростью пробега к примеру на Panel1?Спасибо.

---

← →
def   (2007-01-21 16:36) [1]

> Каким образом можно сделать бегущую строку с необходимыми
> текстом и скоростью пробега к примеру на Panel1?Спасибо.
>

очень просто!
найти программиста, встать перед ним на колени с внушительной пачкой баксов и попросить сделать это! вероятность согласия зависит главным образом от внушительности суммы

---

← →
Гоша   (2007-01-21 16:46) [2]

> def   (21.01.07 16:36) [1]

Спасибо!А я в свою очередь предложу тебе НЮХАТЬ СЫР!

---

← →
Runner   (2007-01-21 17:01) [3]

2 Гоша

Гога, подскажи, как можно написать роман в стиле "Война и Мир". Тока в подробностях, а лучше - текст сразу давай, не трепись много.

---

← →
tesseract ©   (2007-01-21 17:05) [4]

TTimer + в TСustomPanel переписать метод Paint.
Через TLabel будет сильно проще.

---

← →
vrem   (2007-01-21 17:09) [5]

Присваивай label"у по очереди строки,
покажется что она бежит :)
label1.caption:=

Бежит гошина строка!
Бежит гошина строка
! Бежит гошина строк
а! Бежит гошина стро
ка! Бежит гошина стр
ока! Бежит гошина ст
рока! Бежит гошина

---

← →
Runner   (2007-01-21 17:16) [6]

vrem

жесть!

---

← →
Гоша   (2007-01-21 17:24) [7]

А если нормально, как можно такое организовать?
Пусть будет в лейбле.

---

← →
Ученик чародея ©   (2007-01-21 17:52) [8]

> Гоша   (21.01.07 17:24) [7]
>
> А если нормально, как можно такое организовать?
> Пусть будет в лейбле.


Через Canvas.TextOut панели, там и координаты вывода текста задать можно.

---

← →
Kair+ ©   (2007-01-21 19:04) [9]


var
 i: Integer = 1;
 s: String;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 s := "Привет!";
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if i > Length(s) then i := 1;
 Label1.Caption := Copy(s, i, Length(s)) + #32 + Copy(s, 1, i - 1);
 Inc(i);
end;


---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c