Строка состаяния или загрузачная строка

[Sergeu]

Люди помагите! какие есть способы использования строки состояния? Мне надо чтоб нажал на кнопку и строка побежала или пять секунд или пять минут! но не знаю как системный код написать? напишите код плиз

[Манжосов Денис :)]

Объявляем переменную

Var
X : integer;

Присвойте ей в процедуре OnCreate значение ноль

X := 0;

Создайте таймер, и в OnTimer напишите:

ProgressBar1.Position := ProgressBar1.Position + 5;
X := X + 5;
if X = 100 then Timer_Position.Enabled := false;

[russian-stalker]

procedure TForm1.Button1Click(Sender: TObject);
begin
if timer1.enabled=false then
timer1.enabled:=true
else
timer1.enabled:=false
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.enabled:=false
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Interval:=50;
ProgressBar1.Position := ProgressBar1.Position + 5;
end;

Я бы так сделал. На форме разместить кнопку, прогресс бар и таймер

[mutabor]

if timer1.enabled=false then
timer1.enabled:=true
else
timer1.enabled:=false

timer1.enabled:=not timer1.enabled;

[russian-stalker]

Привычка от Turbo Pascal'я

[Sergeu]

спосиб помог

[Sergeu]

А как зделать чтоб в конзе загрузки было какойнебуть действие? И строка очищялосьь например для повторной опирации?! За рание спосибо!

[KORN]

ну ты прощитывай...

if bar.position=bar.max then
begin
bar.position:=0;
// твои действия
end;

эт все в таймере

[Sergeu]

ай точно чтото ступил))))) но всё ровно спосиб!