Sub OnKeyPress(Sender: Object; Args: IKeyPressEventArgs);
Begin
//набор операторов;
End Sub OnKeyPress;
Sender. Параметр, возвращающий компонент, сгенерировавший событие;
Args. Параметр, позволяющий определить параметры события.
Событие OnKeyPress наступает, если компонент находится в фокусе при нажатии пользователем символьной клавиши.
При работе в компоненте «Frame» cобытие OnKeyPress наступит после нажатия пользователем клавиш Enter, Space или Esc, если отображаемая форма находится в скрытом состоянии (Visible = False). Для того, чтобы распознать нажатие вспомогательных клавиш, следует использовать события OnKeyDown и OnKeyUp.
Для выполнения примера предполагается наличие формы. На форме расположено несколько компонентов, которые могут принимать фокус. В качестве обработчика события OnKeyPress для всех компонентов используется следующая процедура:
Sub OnKeyPress(Sender: Object; Args: IKeyPressEventArgs);
Begin
If Args.Key = 'A' Then
Args.Key := 'a';
End If;
End Sub OnKeyPress;
После выполнения примера, если при вводе текста в области какого-либо компонента была нажата латинская заглавная буква «А», то в тексте данная буква будет заменена строчной латинской буквой «а».
См. также: