Delphi функция timer

[Ferrari california]

Вопрос ,как реализовать что при нажатие на клавишу button акивириволся прогрес бар и когда он дошел до конца открылася форм 2 с мну +

[Vlad3d]

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=ProgressBar1.Position+1;
if ProgressBar1.Position=ProgressBar1.max then
form2.Show;
end;

end.


как нибудь так

[slesh]

примерно так: в онклике буттона пропиши

ProgressBar1.max := 100;
ProgressBar1.Position := 100;
Timer1.enable := true;

настрой таймер на нужную частоту и пропиши код
в онтаймер таймера

ProgressBar1.Position := ProgressBar1.Position + 1;
if ProgressBar1.Position = ProgressBar1.max then
begin
Timer1.Enable := false;
Form2.Show();
end;

[Ferrari california]

примерно так: в онклике буттона пропиши

ProgressBar1.max := 100;
ProgressBar1.Position := 100;
Timer1.enable := true;

настрой таймер на нужную частоту и пропиши код
в онтаймер таймера

ProgressBar1.Position := ProgressBar1.Position + 1;
if ProgressBar1.Position = ProgressBar1.max then
begin
Timer1.Enable := false;
Form2.Show();
end;

огромное спасибо) ток одно но нет своиства enable есть
enabled

[slesh]

ну я это и имел в виду когда писал код. Ачат еще пока не научился проверять введенный в окно код на правильность.