Справочник по компонентам Delphi. Часть 3 - Функции из модуля FORMS

Written on . Posted in Delphi

ОГЛАВЛЕНИЕ

Страница 14 из 44

Функции из модуля 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).

 

форум delphi