– 25 –

Расположение элементов управления в форме

Выравнивание размеров и положения элементов управления следует воспользоваться ко-

мандами Edit+Size и Edit+Align.

Процедуры обработки

Кнопка добавления слова

Процедура обработки события OnClick для кнопки добавления элемента bbAddItem.

procedure TMainWindow.bbAddItemClick(Sender: TObject); begin

if rbFirst.Checked then begin

if edInputItem.Text <> '' then lbFirst.Items.Add(edInputItem.Text); end

else begin

if edInputItem.Text <> '' then lbSecond.Items.Add(edInputItem.Text); end

end;

Кнопка удаления слова

Процедура обработки события OnClick для кнопки удаления элемента bbDeleteItem.

procedure TMainWindow.bbDeleteItemClick(Sender: TObject); begin

if cbDelEnable.Checked then begin if rbFirst.Checked then begin

if lbFirst.ItemIndex <> -1 then lbFirst.Items.Delete(lbFirst.ItemIndex);

end

else begin

if lbSecond.ItemIndex <> -1 then lbSecond.Items.Delete(lbSecond.ItemIndex);

end end

end;

Отображение выбранного элемента списка

Процедура обработки события OnClick для списков.

procedure TMainWindow.lbFirstClick(Sender: TObject); begin

if lbFirst.ItemIndex <> -1 then

edInputItem.Text := lbFirst.Items[lbFirst.ItemIndex];

end;

Варианты заданий

Главная форма приложения должна обязательно содержать следующие элементы управления: флажки, переключатели, списки.

0.Желающие могут придумать вариант работы самостоятельно. Уровень сложности д.б. не ниже задачи, приведенной в описании лабораторной работы.

1.Заполнить комбинированный список (ComboBox) несколькими целыми числовыми значениями. Затем изменять размер шрифта надписи «Лабораторная работа 3» в соответствии с выбранным в списке значением. Обеспечить возможность модификации списка.

2.Заполнить статически массив записей состоящих из двух полей: номер телефона и фамилия абонента. Заполнить список (ListBox) фамилиями. При выборе в списке фамилии в отдельном поле ввода должен появиться номер телефона. Обеспечить возможность моди-

Калачев Д.П., Лутай В,Н,. Скороход С.В. Delphi. Лабораторные работы.