Top.Mail.Ru

Pascal Windows Forms. Площадь панели

Знакомство с элементами управления NumericUpDown, Label, Panel. Элемент управления NumericUpDown представляет пользователю выбор числа из определенного диапазона.

Разработаем приложение, в котором можно было бы изменять ширину и высоту панели и отображать ее площадь.

vpf panel

Для того, чтобы задать числовое значение ширины и высоты панели, используем NumericUpDown. Этот элемент управления хранит введенное значение в свойстве Value и имеет свойства Minimum и Maximum для управления диапазоном вводимых значений. Для отображения текста используем элемент управления Label.

При изменении значений в  элементах управления NumericUpDown - Nud1 и  Nud2 -  изменяются ширина и высота панели Panel  - Pn1, и одновременно выводится значение площади в метку Label - Lb.

Следовательно, необходимо запрограммировать событие ValueChanged для элементов управления  NumericUpDown.

Создадим новый проект. Сохраним его в подготовленную папку. Поместим на форму элементы управления как показано на изображении выше. Зададим начальные свойства элементов управления: в свойство Value элемента управления Nud1 - 250в свойство Value элемента управления Nud1 - 200. Соответственно, ширина панели - 250, высота - 200.

Запрограммируем событие ValueChange для элемента управления Nud1:

procedure Form1.Nud1_ValueChanged(sender: Object; e: EventArgs);
begin
Pn1.Width:=Convert.ToInt32(Nud1.Value);
Lb.Text:=Convert.ToString(Pn1.Height*Pn1.Width);
end;

Аналогично запрограммируйте событие ValueChange для элемента управления Nud2.