Sub TabSheetBoxOnScaleChange(Sender: Object; Args: ITabScaleEventArgs);
Begin
//набор операторов
End Sub TabSheetBoxOnScaleChange;
Sender - параметр, указывающий на компонент, в котором произошло событие.
Args - параметр, позволяющий определить дополнительные параметры события.
Событие OnScaleChange возникает при изменении масштаба таблицы.
Для выполнения примера данную процедуру необходимо назначить в качестве обработчика события OnScaleChange для компонента TabSheetBox с идентификатором «TabSheetBox1».
Sub TabSheetBox1OnScaleChange(Sender: Object; Args: ITabScaleEventArgs);
Var
d: Double;
Begin
d:=Args.Scale;
End Sub TabSheetBox1OnScaleChange;
После выполнения события в переменной «d» будет содержаться новый масштаб таблицы.
См. также: