Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Delphi функция timer (https://forum.antichat.xyz/showthread.php?t=203983)

Ferrari california 14.05.2010 15:28
Delphi функция timer
 
Вопрос ,как реализовать что при нажатие на клавишу button акивириволся прогрес бар и когда он дошел до конца открылася форм 2 с мну +

Vlad3d 14.05.2010 15:43
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 14.05.2010 15:44
примерно так: в онклике буттона пропиши
Код:
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 14.05.2010 15:53
Цитата:
Сообщение от 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;
огромное спасибо) ток одно но нет своиства enable есть
enabled

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


Время: 01:11