Как избавится от этих ошибок. Нужно 2-ю форму открыть перед 1-й

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by bertys, 6 Jun 2012.

  1. bertys

    bertys New Member

    Joined:
    25 Jan 2012
    Messages:
    162
    Likes Received:
    0
    Reputations:
    0
    Нужно 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(TForm1Form1);
      
    Application.CreateForm(TForm0Form0);
      
    Application.CreateForm(TLogLog);
      
    Application.CreateForm(TForm2Form2);
        
    Application.CreateForm(TForm1Form1);
      
    Application.CreateForm(TForm4Form4);
    Form2.Hide;
    Form2.Free;
    Application.Run;

    end.

    Все почти работает, на форме 3 на таймере стоит код для открытия формы 1.

    Форма 1 открывается и выдаются такие ошибки (и пропадает все то что есть на форме)ъ

    [​IMG]

    Заранее спасибо
     
  2. lamer811

    lamer811 Elder - Старейшина

    Joined:
    8 Nov 2009
    Messages:
    135
    Likes Received:
    40
    Reputations:
    12
    Подозреваю, что проблема в том, что ты пытаешься открыть Form3, ранее, чем создан Form1

     
  3. bertys

    bertys New Member

    Joined:
    25 Jan 2012
    Messages:
    162
    Likes Received:
    0
    Reputations:
    0
    lamer811, а как правильно осуществить мою идею??? Так чтоб ошибок не было =)
     
  4. lamer811

    lamer811 Elder - Старейшина

    Joined:
    8 Nov 2009
    Messages:
    135
    Likes Received:
    40
    Reputations:
    12
    Я не программист, поэтому мои советы гуру, могут принять за глупости
    Например:
    В меню: Project -> Options -> Forms
    Выставить Main form: Form3
    Тогда при запуске проекта первой будет создаваться и открываться форма 3
     
  5. bertys

    bertys New Member

    Joined:
    25 Jan 2012
    Messages:
    162
    Likes Received:
    0
    Reputations:
    0
    lamer811, спасибо, очень полезный совет =)
    Но все равно выскакивает ошибка
     
  6. bertys

    bertys New Member

    Joined:
    25 Jan 2012
    Messages:
    162
    Likes Received:
    0
    Reputations:
    0
    Пожалуйста помогите, препод задал одну прожку, все сделал, и тут такое...
    Мне ее сегодня вечером нужно сдать, крайний срок завтра.

    Форумчане отзовитесь.... Очень нужно...
     
  7. DYUMON

    DYUMON New Member

    Joined:
    15 Sep 2010
    Messages:
    68
    Likes Received:
    2
    Reputations:
    0
    сделай так
    PHP:
    Application.Initialize
    Application.CreateForm(TForm3Form3);
    Form3.Show
    while 
    Form3.Timer1.Enabled do 
    Application.ProcessMessages
    Application.CreateForm(TForm1Form1);
     
  8. 1n0y

    1n0y Active Member

    Joined:
    9 May 2009
    Messages:
    272
    Likes Received:
    268
    Reputations:
    2
    вот так работает:

     
  9. bertys

    bertys New Member

    Joined:
    25 Jan 2012
    Messages:
    162
    Likes Received:
    0
    Reputations:
    0
    Все равно. На форме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;
     
    #9 bertys, 6 Jun 2012
    Last edited: 6 Jun 2012
  10. DYUMON

    DYUMON New Member

    Joined:
    15 Sep 2010
    Messages:
    68
    Likes Received:
    2
    Reputations:
    0
    а вообще у тебя проблемма с созданием фрейма видимо
     
  11. bertys

    bertys New Member

    Joined:
    25 Jan 2012
    Messages:
    162
    Likes Received:
    0
    Reputations:
    0
    До сих пор не могу решить проблему, помогите
     
Loading...