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; |
Преобразует
флаги состояния клавиатуры и
кнопок мыши из типа MK_SHIFT, MK_LBUTTON
в принятый в Delphi тип TshiftState. |
function KeyDataToShiftState
(KeyData: Longint): TShiftState; |
Производит
аналогичное преобразование из
виртуальных кодов клавиш Windows
(например, типа VK_SHIFT). |
