Не работает WaitForSingleObject.

← →
Сергей (2009-10-23 16:54) [0]

Пробую задержать выполнение программы пока Child forma не закрыта
Procedure TMOD_PrintPermission.WaitControlerClose(Form:TForm); begin while WaitForSingleObject(Form.Handle,INFINITE)=WAIT_TIMEOUT do begin Application.ProcessMessages; end; end;
Handle передается нормально- но задержка не происходит

← →
Сергей М. © (2009-10-23 17:01) [1]

> Handle передается нормально

Где это видано, чтобы WaitForSingleObject принимала параметром хэндл окна ?
Читай справку внимательно.
Да и вообще код бессмысленный.

← →
Сергей (2009-10-23 17:14) [2]

А как это реализовать? Какую функцию нужно использовать?

← →
Сергей (2009-10-23 17:17) [3]

ShowModal и все ок.

> while WaitForSingleObject(...,INFINITE)=WAIT_TIMEOUT

Это фраза "после дождичка в четверг", переведенная на Паскаль?

> ShowModal и все ок.

Не трынди.
MDIChild-форму визуализировать в модальном режиме нельзя.
А если речь об MDI не идет, то и упоминание Child неуместно.

Не работает WaitForSingleObject. Найти похожие ветки