ProgressBar и Form'a

[troyan32]

Я создаю демо версию своей программы и возникли вопросы:
1. Возможно ли программно сменить главную форму? Если да то как?
2. И как закрыть форму и открыть другую если position у progressbar'а = 100?
Форма-"пустышка", прогрессбар работает от таймера.

[eduard93]

Сделайте Project -> View source. Какая форма первой создается та и главная.
В таймере проверяйте позицию прогресбара, если конец, то открывайте новую форму.

[troyan32]

При включении таймера

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=ProgressBar1.Position+1;
if ProgressBar1.Position=100 then 
form2.show;
Timer1.enabled:=false;
end;

при появлении формы

procedure TForm1.FormShow(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

Если поставить главную форму 1 форму(на которой прогресс бар), то при закрытии её приложение закрывается. А если поставить 2 форму, то она показывается, 1 нет. Как сделать при запуске показывать 1 форму, на которой прогрессбас, а когда он заполнится, 1 ф закрыть, 2 ф открыть.

[Человек_Борща]

uses unit2 ; //form2 unit

....


procedure Form2.OnCreate;
begin
Form1.Show;
Hide; //form2
end;

procedure OnShow; //Form1
begin
Timer.Enabled:=True;
end;

Procedure onTimer; //Form1
begin
If (ProgressBar.Position = 100) then
begin
Hide; //Form1
Form2.show;
end; 
end;

ничего сложного

[troyan32]

Сейчас прогрессбар перестал работать.

[eduard93]

Код в студию.