MaxValue: Integer;
Свойство MaxValue определяет значение параметра «MAXVAL» в строке связи.
Параметр «MAXVAL» определяет максимальное значение ползунка. Максимальное значение должно быть больше минимального значения, заданного в свойстве IBindingIntegerSlider.MinValue.
Значение свойства MaxValue учитывается, если свойство IBindingIntegerSlider.MaxValueDefined имеет значение True. При изменении значения свойства MaxValue свойству IBindingIntegerSlider.MaxValueDefined автоматически присваивается значение True.
Данная функция возвращает строку связи для использования редактора значений в виде ползунка целых значений.
Function CreateIntegerSliderBidning: string;
Var
BM: IBindingManager;
Slider: IBindingIntegerSlider;
Begin
BM := New BindingManager.Create;
Slider := BM.CreateByUi("IntegerSlider") As IBindingIntegerSlider;
// Указываем, что пустые значения не допускаются
Slider.Mandatory := True;
// Задаем минимальное и максимальное значения
Slider.MinValue := -100;
Slider.MaxValue := 100;
// Задаем шаг изменения
Slider.Step_ := 1;
// Задаем значение по умолчанию
Slider.Value := 0;
// Возвращаем строку связи
Return Slider.AsString;
End Function CreateIntegerSliderBidning;
В результате выполнения примера будет получена строка связи для использования редактора значений в виде ползунка целых значений.
См. также: