| Функция
CloseWindow (Integer) : Boolean |
Top Previous Next |
| Назначение
|
| Закрывает
окно с номером iWindow. |
| Описание
|
| function
CloseWindow (iWindow : Integer) : Boolean; |
| Параметры
|
| iWindow
: Integer - окно, которое необходимо закрыть.
|
| Возвращаемое
значение |
| В
случае успешного завершения операции возвращает True, иначе
- False. |
| Замечание
|
| После
описания окна становится доступной константа с идентификатором,
совпадающим с идентификатором окна и со значением равным номеру
окна. |
| Пример
|
| В
примере описаны два окна, второе из которых считается подчиненным
первому и поэтому не может быть открыто, если закрыто первое окно.
|
| Для
этого в обработчике события cmDone первого окна
вызывается функция закрывающая второе окно. |
| Interface
Example1 'Основной интеpфейс! '; |
| show
at(,7,,12); |
| create view
|
| as select *
from Employee; |
| Screen First;
|
| buttons
|
| cmOpenFirst;
|
| <<
|
| <. Открыть
Первое окно .> |
| >>
|
| end;
|
| Window Window2
'Окно #2'; |
| show
at(,11,,18); |
| Screen Third;
|
| <<
|
| Это последнее
(втоpое окно) |
| >>
|
| end;
|
| end;
|
| Window Window1
'Окно #1 '; |
| show at(,,,10);
|
| Screen Second;
|
| buttons
|
| cmOpenSecond;
|
| <<
|
| Вместе с
закрытием текущего окна закроется и |
| второе
(последнее) окно |
| <. Открыть
окно2 .> |
| >>
|
| end; // Screen
|
| HandleEvent
|
| cmOpenSecond:
RunWindow(Window2); |
| cmDone:
CloseWindow(Window2); |
| end;
|
| end;
|
| HandleEvent
|
| cmOpenFirst:
RunWindow(Window1); |
| end;
|
| end.
|