Нашли ошибку? Выделите
текст с ошибкой и нажмите кнопку "Сообщить об ошибке"
или CTRL+ENTER.
Справочная
система на версию 9.2
Update 17 от 29/12/2020,
© ООО «ФОРСАЙТ»,
ShiftState: Integer;
Свойство ShiftState возвращает значение, соответствующее состоянию вспомогательных клавиш (SHIFT, ALT и CTRL) во время выполнения действий с клавиатуры.
Значение данного свойства представляет собой комбинацию значений перечислимого типа ShiftState, указывающую какие вспомогательные клавиши (SHIFT, ALT и CTRL) были нажаты, либо отпущены при выполнении действий с клавиатуры. Свойство возвращает значение "0", если ни одна из вспомогательных клавиш (SHIFT, ALT и CTRL) не использовалась во время выполнения действий с клавиатуры.
Для выполнения примера предполагается наличие формы. На форме расположено несколько компонентов, которые могут принимать фокус. В качестве обработчика события OnKeyDown для всех компонентов используется следующая процедура:
Sub ProcedureOnKeyDown(Sender: Object; Args: IKeyEventArgs);
Begin
If (Args.ShiftState = ShiftState.Shift + ShiftState.Ctrl) And (Args.Key = Keys.B) Then
Text := (Sender As IControl).Name;
End If;
End Sub ProcedureOnKeyDown;
После выполнения примера, если в области какого-либо компонента было нажато сочетание клавиш "Shift+Ctrl+B", то в наименование формы будет выведено наименование этого компонента.
См. также: