Разработка прикладных программ для ОС WINDOWS с помощью интегрированных сред Delphi / C++Builder. Баканов В.М. - 71 стр.

                                      - 71 -


      CloseHandle(pi.hProcess); // освобождаем хэндл процесса
    } // конец IF WaitForSingleObject...
  } // конец IF RuleParent = 0

  if (RuleParent == 1) // родитель не должен ждать окончания
                        // работы потомка
    return; // выход - ничего не делая

  if ((RuleParent != 0) && // родитель завершается
      (RuleParent != 1))
    Application->Terminate(); // закончить родительский процесс

 } // конец IF out=true

} // конец процедуры RunExternal

  Приложение-родитель имеет возможность контролировать работу прило-
жения-потомка (вплоть до приостановления, полного останова или возоб-
новления выполнения потомка) с помощью WINDOWS API функций Sus-
pendThread, TerminateProcess или ResumeThread соответственно; в качест-
ве формальных параметров этим функциям передается идентификатор управ-
ляемой задачи.
   Подробнее рекомендуется методическое руководство ‘Технология про-
граммирования больших программных комплексов’ того же автора.

9.3. СОЗДАНИЕ ИНТЕРФЕЙСА, НЕЗАВИСИМОГО
    ОТ РАЗМЕРОВ ОКНА

   Взаимное расположение интерфейсных элементов на форме изменяется
при изменении размеров формы (например, при ее максимизации). Проблема
часто возникает также при эксплуатации приложения на ПЭВМ, снабженной
дисплеем, отличным (по разрешающей способности) от дисплея машины раз-
работчика.
   Задача сохранения взаимного расположения компонентов на форме реша-
ется просто. В большинстве случае для этого используется связанный с собы-
тием OnResize обработчик, в котором явно задается взаимное положение ка-
ждого компонента на форме; процедура активизируется во время RunTime.
   В качестве примера рассмотрим процедуру-обработчик, поддерживаю-
щую размер компонента Panel1 в половину размеров формы Form_1 и поло-
жение его же в центре оной

procedure TForm_1.FormResize(Sender: TObject);
begin
 Panel1.Width := Form_1.Width div 2;
 Panel1.Height:=Form_1.Height div 2;