Create(Key: Integer; ShiftState: Integer);
Key - код клавиши клавиатуры.
ShiftState - код нажатия вспомогательных клавиш ( «Shift», «Alt» и «Ctrl»). Для установки значения используйте перечислимый тип ShiftState. Если использование вспомогательных клавиш не требуется, необходимо в качестве значения передавать "0".
Конструктор Create создает аргумент событий OnKeyDown и OnKeyUp.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием "Button1" и компонента EditBox с наименованием "EditBox1". Для "EditBox1" имеется обработчик события OnKeyDown.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Argument: IKeyEventArgs;
Begin
Argument := New KeyEventArgs.Create(Keys.A, ShiftState.Shift);
EditBox1.OnKeyDown(EditBox1, Argument);
End Sub Button1OnClick;
После выполнения примера при нажатии на кнопку для компонента "EditBox1" будет сгенерировано событие нажатия сочетания клавиш "Shift+A" в области компонента.
См. также: