[lostbananan]

Да не нужен мне слип! Мне нало чтобы пользователь сам "сказал" второрй форме закончить работу! Как это сделать??

[lmikle]

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

Да не нужен мне слип! Мне нало чтобы пользователь сам "сказал" второрй форме закончить работу! Как это сделать??

Sleep нужен для того, что бы передать ресурсы другому приложению. Обрати внимание на значение, передаваемое в sleep - 0.1 сек. Фактически, это цикл, пока пользователь не чекнет галку.

ЗЫ. А если не понимаешь как работает многозадачная операционка, так что лезешь в программирование?

[lostbananan]

Может я чего-то и недопонимаю но код :

Код:

  with TForm2.Create(nil) do
    begin
       Show;
       Update;
       While not CheckBox1.Checked Do sleep(100);
     Free;
    end;

приводит к тому что приложение тупо зависает и ни чекбокс выбрать ничего нельзя сделать...
Что не так?
И как мне сделать чтобы из формы2 можно было выйти стандартно как в любом виндовс приложении. Заранее неизвестно сколько времени йформа2 будет активной, к тому же на форме два будут происходить всякие изменения !...
Тоесть форма 2 должнра быть полнофункциональным виндовз приложением! А при использованрии слиип - все приложение зависает!

[M.A.D.M.A.N.]

ShowModal для кого сделан?

Объяснять как использовать?

[lostbananan]

Т.е вместо show ShowModal использовать?

[M.A.D.M.A.N.]

да
и цикл со слипом больше не нужен будет.

[lostbananan]

Если использовать такой код:

Код:

with TForm2.Create(nil) do
    begin
       ShowModal;
       Update;
{       While not CheckBox1.Checked Do sleep(100);}
     Free;
    end;

то вторая форма - ее практически невидно, просто приложение закрывается
Что и как здесь нетак?

[M.A.D.M.A.N.]

Обратись в раздел "работа", пусть лучше за тебя сделают, у тебя чудеса какие-то творятся, элементарные вещи не реализуются.

[lostbananan]

Да нет - я хочу сам написать... Писалд я на дельи в последний раз лет 10 назад многое подзабыл. Так все ж таки что неправильно в коде?
Кто знает что здесь нетак - помогите разобраться!

[lostbananan]

Кто-нибудь помогите - подскажите!!!! ПОЖАЛУЙСТА!!!

[lostbananan]

В конце-концов если сам не разбирусь или мне никто не подскажет обойду эту проблему так:

Код:

WinExec('ххх.exe',SW_SHOWNORMAL)

[lmikle]

Сообщение от M.A.D.M.A.N.

да
и цикл со слипом больше не нужен будет.

Не, не прокатит, т.к. главная процедура обработки сообщений уже не существует. Тут как раз и проблема, что надо показать интерактивную форму, но уже нет процессора сообщений.

Если вариант скрывать главную форму и в ее обработчике OnClose модально показывать свою форму закрытия. В OnClose приложение все еще работает.

[M.A.D.M.A.N.]

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

Если вариант скрывать главную форму и в ее обработчике OnClose модально показывать свою форму закрытия. В OnClose приложение все еще работает.

Тоже хотел предложить такой вариант, но хрен пойми что ТС хочет.

[lostbananan]

ты наверное меныя неправильно понял.
Главное окно закрылось и мне нужно чтобы второе окно - было нормлаьным приложением. ТАк и получилось

[M.A.D.M.A.N.]

Код:

program foo;
uses
  forms,
  form1 in '...', 
  form2 in '...';

begin
  with TForm1.create(nil) do
    try
      showmodal;
    finally
      free;
    end;

  with TForm2.create(nil) do
    try
      showmodal;
    finally
      free;
    end;
end.

Правда косячить будет при сворачивании окна ибо овнера у окон нет.