Приветственное окно в программе

[tsar_]

Вот, набросал по примеру из замечательной книги Юрия Ревича "Нестандартные приемы программирования на Delphi", глава 4, стр. 82-85.
(скачать можно отсюда http://amar-runyak.ucoz.ru/load/4-1-0-24

[Elegance3]

спасибо))) попробую))

[Elegance3]

Сообщение от tsar_

Вот, набросал по примеру из замечательной книги Юрия Ревича "Нестандартные приемы программирования на Delphi", глава 4, стр. 82-85.
(скачать можно отсюда http://amar-runyak.ucoz.ru/load/4-1-0-24

попробовала все как в книге - заставка стоит бесконечно - проделала отладку - программа зависает на строке цикла while. Если можно - скиньте код, который у вас.

begin
Application.Initialize;
Form6:=Tform6.Create(Application);
Form6.Show;
while Form6.Timer1.Enabled do
Application.ProcessMessages;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TAboutBox, AboutBox);
Application.CreateForm(TForm4, Form4);
Form6.Free;
Application.Run;
end.

сделала все как в книге, но заставка держится бесконечно и тормозит на строке с while.

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

Сообщение от Elegance3

Среди компонентов New - Splash Form не нашла((

его там и не будет. TSplashForm это форма TForm просто я свойству Name задал "разумное" значение.
Форму сами создаёте...

Просто переносите форму из auto-create forms в avaliable forms (Project - Options..)
И создаёте подобно тому, как у меня.

Далее..

Application.Initialize;
 Form6:=Tform6.Create(Application);
 Form6.Show;
 while Form6.Timer1.Enabled do 
 Application.ProcessMessages;
 Application.CreateForm(TForm1, Form1);
 Application.CreateForm(TForm2, Form2);
 Application.CreateForm(TForm3, Form3);
 Application.CreateForm(TAboutBox, AboutBox);
 Application.CreateForm(TForm4, Form4);
 Form6.Free;
 Application.Run;
 end.

Бесконечный цикл здесь.

 while Form6.Timer1.Enabled do

т.к. вы нигде не делаете Timer1.false. Да, и на кой там таймер? Он же ничего не делает, следовательно и не работает.
Нет блока begin end;

[Elegance3]

таймер false у меня в обработчике таймера - это пример с книги мне вот посоветовали, должно работать - да вот не работает

По коду, который у Вас - у меня не определяются свойства формы ProgressLoad.MinValue и.т.д., не опознает их

[Стелс]

Application.Initialize;
 Form6:=Tform6.Create(Application);
 Form6.Show;
 Form6.Update;//<-------------
 while Form6.Timer1.Enabled do 
 Application.ProcessMessages;
 Form6.Hide;//<---------
 Application.CreateForm(TForm1, Form1);
 Application.CreateForm(TForm2, Form2);
 Application.CreateForm(TForm3, Form3);
 Application.CreateForm(TAboutBox, AboutBox);
 Application.CreateForm(TForm4, Form4);
// Form6.Free; здесь так вот <-----------
 Application.Run;
 end.

procedure TForm6.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:= false;
end;

//в опциях проекта убераем Form6 из списка автосоздаваемых shift+ctrl+F11 на вкладке Forms

[Elegance3]

Сделала все как у Вас - бесконечно торчит заставка. Цикл в любом случае получается бесконечный((((

[Стелс]

Сообщение от Elegance3

Сделала все как у Вас - бесконечно торчит заставка. Цикл в любом случае получается бесконечный((((

как у меня ???

[Elegance3]

ну то что вы описали - сделала так же - ничего не изменилось((

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

вот вам простой пример и без всяких таймеров(который там вообще не нужен..).. и бесконечных while