14.05.2010, 15:44
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
примерно так: в онклике буттона пропиши
Код:
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;
|
|
|