Бегущая строка

← →
Гоша (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]

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

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

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

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;

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