Компонент Delphi UpDown

Компонент Delphi UpDown находится на странице Win32 Палитры компонентов. Его основное предназначение быть счетчиком. Он может уменьшать или увеличивать числовое поле на за заданную целую величину, равную свойству Increment, по умолчанию единице. Диапазон значений задается свойствами Min и Max (возможные значения от  -32768 до 32767).

UpDown не имеет поля вывода в котором отображалось бы изменяемое число. В процессе проектирования приложения его связывают с другим оконным элементом управления. Это может быть одно строчный редактор Edit или компонент StaticText. Надпись Label для этих целей использовать нельзя, т.к. это не оконный элемент. Можно использовать даже компонент Memo.

Первый группа, на рисунке связка с компонентом Edit, вторая - StaticText, третья с - Edit, но связь задается программно (в приложении Edit2 и UpDown будут рядом). И в конце связь Memo c UpDown.

Вид счетчика может быть горизонтальным или вертикальным, это зависит от свойства Orientation.

Взаимосвязь счетчика UpDown к ассоциированному компоненту производиться за счет свойства Associate. В программном коде:

UpDown3.Associate:=Edit2;
После установления связи счетчик UpDown автоматически состыковывается со своим компонентом партнером. Так как данная пара не имеет своей надписи, то при необходимости пояснить значение рядом с ним необходимо расположить компонент Label.

Производить изменение в программе можно с помощью мыши, или если свойство ArrowKeys имеет значение TRUE (по умолчанию так оно и есть), клавишами: "стрелка вверх" и "стрелка вниз".

Свойство  Position определяет текущую позицию счетчика. При выходе значения счетчика за границы диапазона, значение счетчика не измениться если свойство Wrap будет FALSE. Или если свойство Wrap равно TRUE, при значении превышающим максимальное число - Position становиться равным свойству MIN, аналогично для числа меньше минимального становиться равным свойству MAX.

Значения для использования можно брать как из свойств Text, компонента Edit, так и из свойства Position компонента UpDown. Отличаются эти значения тем, что первое будет текстовым, а второе числовым. Применять исходя из того какой тип нам необходим.

При изменении показания счетчика возникает событие  onChanging. Расположим на форме компоненты, как на рисунке. Зададим событие onChanging на вкладке Events Инспектора Объектов. Свойство AllowChange - равное TRUR разрешает или равное FALSE запрещает изменять счетчик.

В данном примере оно ассоциируется со  значением CheckBox1.Checked

procedure TForm1.UpDown1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
   if CheckBox1.Checked = true then
     begin
      AllowChange := True;
      Label1.Caption := Edit1.Text;
     end
        else AllowChange := false;
end;

Итог: на практике был разобран компонент UpDown.

Понравилась статья? Раскажите друзьям:
Общайтесь со мной

2 thoughts on “Компонент Delphi UpDown

  1. Хотел написать что-нибудь стоящее, но увы в программировании мало что понимаю. Но блог ваш понравился. Ничего лишнего на нем нет.

Оставить комментарий

Ваш email не будет опубликован. Обязательные поля отмечены *

Вы можете использовать это HTMLтеги и атрибуты: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>