Sub TabSheetBoxOnProtectionFail(Sender: Object; Args: ITabProtectionFailedEventArgs);
Begin
//набор операторов
End Sub TabSheetBoxOnProtectionFail;
Sender - параметр, указывающий на компонент, в котором произошло событие.
Args - параметр, позволяющий определить дополнительные параметры события.
Событие OnProtectionFail возникает при срабатывании защиты таблицы.
Для выполнения примера данную процедуру необходимо назначить в качестве обработчика события OnProtectionFail для компонента TabSheetBox с идентификатором «TabSheetBox1».
Sub TabSheetBox1OnProtectionFail(Sender: Object; Args: ITabProtectionFailedEventArgs);
Var
s: String;
Begin
s:=Args.Message;
End Sub TabSheetBox1OnProtectionFail;
После выполнения события в переменной «s» будет содержаться информационное сообщение.
См. также: