Нужно 3-ю форму открыть перед 0-й. Использую этот код: пишу его в Progekt1 PHP: uses Forms, Unit0 in 'Unit00.pas' {Form0}, Log in 'uLog.pas' {Log}, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}, Unit3 in 'Unit3.pas' {Form3}, Unit4 in 'Unit4.pas' {Form4}; {$R *.res} begin Application.Title := 'Проект'; Application.Initialize; Form3 := TForm3.Create(Application); Form3.Show; while Form3.Timer1.Enabled do Application.ProcessMessages; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm0, Form0); Application.CreateForm(TLog, Log); Application.CreateForm(TForm2, Form2); Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm4, Form4); Form2.Hide; Form2.Free; Application.Run; end. Все почти работает, на форме 3 на таймере стоит код для открытия формы 1. Форма 1 открывается и выдаются такие ошибки (и пропадает все то что есть на форме)ъ Заранее спасибо
Я не программист, поэтому мои советы гуру, могут принять за глупости Например: В меню: Project -> Options -> Forms Выставить Main form: Form3 Тогда при запуске проекта первой будет создаваться и открываться форма 3
Пожалуйста помогите, препод задал одну прожку, все сделал, и тут такое... Мне ее сегодня вечером нужно сдать, крайний срок завтра. Форумчане отзовитесь.... Очень нужно...
сделай так PHP: Application.Initialize; Application.CreateForm(TForm3, Form3); Form3.Show; while Form3.Timer1.Enabled do Application.ProcessMessages; Application.CreateForm(TForm1, Form1);
Все равно. На форме1 которая открывается после формы3 через 1-2 сек выдает ту ошибку. Я сделал в проге так: В меню: Project -> Options -> Forms Выставить Main form: Form3 И потом код: Application.Initialize; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2, Form2); form2.Show; while form2.Showing do application.ProcessMessages; Application.Run;
