Sub OnKeyUp(Sender: Object; Args: IKeyEventArgs);
Begin
//набор операторов;
End Sub OnKeyUp;
Sender. Параметр, возвращающий компонент, сгенерировавший событие;
Args. Параметр, позволяющий определить параметры события.
Событие OnKeyUp наступает, если компонент находится в фокусе при отпускании пользователем любой ранее нажатой клавиши, включая вспомогательные, такие как: CTRL, SHIFT и ALT.
Если нет необходимости распознавания нажатия вспомогательных клавиш, то целесообразнее воспользоваться событием OnKeyPress.
Для выполнения примера предполагается наличие формы. На форме расположено несколько компонентов, которые могут принимать фокус. В качестве обработчика события OnKeyUp для всех компонентов используется следующая процедура:
Sub OnKeyUp(Sender: Object; Args: IKeyEventArgs);
Begin
If (Args.ShiftState = ShiftState.Ctrl) And (Args.Key = Keys.B) Then
Text := (Sender As IControl).Name + " Up";
End If;
End Sub OnKeyUp;
После выполнения примера, если в области какого-либо компонента было нажато и отпущено сочетание клавиш «Ctrl+B», то в наименование формы будет выведено наименование этого компонента и приписано слово «Up».
См. также: