Sub OnFocusChanging(Sender: Object; Args: IListViewActionEventArgs);
Begin
//набор операторов;
End Sub OnFocusChanging;
Sender. Параметр, возвращающий компонент, сгенерировавший событие.
Args. Параметр, позволяющий определить параметры события.
Событие OnFocusChanging наступает перед сменой фокуса у элемента компонента.
Для выполнения примера предполагается наличие формы и, расположенного на ней, компонента ListView с наименованием "ListView1". Для компонента создано несколько элементов.
Sub ListView1OnFocusChanging(Sender: Object; Args: IListViewActionEventArgs);
Begin
If (Args.Item.Text = "3") And (Not Args.Item.Focused) Then
Args.Allowed := False;
End If;
End Sub ListView1OnFocusChanging;
После выполнения примера при смене сфокусированного элемента в компоненте, если текст элемента соответствует "3", то передача фокуса данному элементу будет запрещена.
См. также: