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