Справочник по компонентам Delphi. Часть 3
Страница 11. Свойства форм MDI

(ро) property ClientHandle: HWND; procedure Arrangelcons;

Содержит дескриптор клиентского окна (для главного окна MDI).

Упорядочивает расположение сверну­тых в значок дочерних форм MDI.

Располагает дочерние формы MDI каскадом.

procedure Tilet-property TileMode: TTiieMode; TTileMode = (tbHorizontal, tbVertical) ;

Располагает дочерние формы MDI мозаикой. Стиль определяется свой­ством TileMode.

Определяет стиль расположения дочер­них форм — вертикальный или горизон­тальный.

Передает фокус следующей форме в списке дочерних форм.

procedure Previous; ($o) property ActiveMDIChild: TForm;

Передает фокус предыдущей форме в списке дочерних форм.

Содержит указатель на активную дочер­нюю форму.

(Ro) property MDIChildren[I: Integer]: TForm;

Определяет количество дочерних форм.

Содержит указатель на 1-тую дочернюю форму.

(Pb) property WindowMenu: TMenuItem;

Указывает на тот пункт меню, к которому достраивается список имен дочерних форм.

Функции из модуля FORMS

В модуле FORMS (где описан класс Они важны для понимания взаимодейс!

Топп) содержится также ряд функций. пвия формы и ее дочерних компонентов.

function GetParentForm(Control: TControl) : TForm;

Возвращает указатель на форму, которой принадлежит элемент управления Control.

function ValidParentForm(Control: TControL): TForm;

Делает то же, что и предыдущая функция, при этом, если форма не найдена, возникает исключительная ситуация EInvalidOperation.

function DisableTaskWindows(ActiveWindow: HWnd) : Pointer;

Переводит в неактивное состояние все окна, кроме ActiveWindow. Эта функция возвращает копию исходного списка окон (TaskWindowList).

procedure EnableTaskWindows(WindowList: Pointer);

Используется в паре с предыдущей функцией. Получив созданный ею список окон, переведенных в неактивное состо­яние, EnableTaskWindows активизирует все окна (через вызов функции API EnableWindow) и очищает список. Такой прием необходим при создании модальных окон и управлении ими, например, внутри метода MessageBox.

function AllocateHWnd(Method: TWndMethod) : HWND;

Создает экземпляр окна вспомогательного класса TPUtilWindow (не путать с классом как понятием объектно-ориентированного программирования), обработчиком сооб­щений у которого служит метод Method.

procedure DeallocateHWnd(Wnd: HWND) ;

Уничтожает созданный предыдущей функ­цией экземпляр окна.

function IsAccel(VK: Word; const Str: string): Boolean;

Проверяет, является ли символ VK аксе­лератором для текстовой строки Str. Функция возвращает True, если в строке содержится сочетание & ' VK '.

function KeysToShiftState(Keys: Word) : TShiftState;

Преобразует флаги состояния клавиатуры и кнопок мыши из типа MKSHIFT, MKLBUTTON в принятый в Delphi тип TShiftState.

function KeyDataToShiftState(KeyData: Longint): TShiftState;

Производит аналогичное преобразование из виртуальных кодов клавиш Windows (например, типа VKSHIFT).