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