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

← →
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 поставить

Ещеможноипопариться: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;

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