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

← →
olevacho_ © (2007-05-23 18:52) [0]

Как организовать бегущую строку в D4?

← →
Zeqfreed © (2007-05-23 18:58) [1]

Смотря от кого убегать надо.

← →
olevacho_ © (2007-05-23 20:56) [2]

Нужно чтобы текст заезжал справа налево или наоборот в прямоугольную область окна или нужно чтобы текст появлялся с каким нибудь анимационным эффектом.

← →
Loginov Dmitry © (2007-05-23 21:15) [3]

TCanvas
TextOut (DrawText)
TTimer

и т.д.

← →
Германн © (2007-05-24 01:08) [4]

> olevacho_ © (23.05.07 18:52)
>
> Как организовать бегущую строку в D4?
>

Всё уже сделано до нас. TSecretPanel из RxLib.

← →
Робинзон (2007-05-24 14:16) [5]

На Delphi 4 не пробовал но на 5 и выше работает. ставишь таймер и в FormCreate обрабатываешь событие
procedure TForm1.FormCreate(Sender: TObject); var a:string; begin a := "Бегущая строка!..."; end; procedure TForm1.Timer1Timer(Sender: TObject); var i: Integer; begin Application.Title := a; form1.Caption := a; for i := 1 to (Length(a) - 1) do a[i] := Application.Title[i + 1]; a[Length(a)] := Application.Title[1]; end; end.

Чтоб инсталировать єту библиотеку пишет такое "If you have Delphi 4 Professional or Standard Edition, deactivate theconditional define {$DEFINE DCS} in the RX.INC file before compiling the
library."
Как деактивировать DCS?

> Как деактивировать DCS?
>

Например, вот так:

//{$DEFINE DCS}

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