if FontDialog1.Execute then memo1.Font.Assign(FontDialog1.font);
//для изменения шрифта в Memo1
if ColorDialog1.Execute then memo1.color:=ColorDialog1.Color;
//для изменения цвета в Memo1
Контекстное меню оформить по своему усмотрению.
Лабораторная работа 19. Работа со списками
СПИСКИ ВЫБОРА
Для работы со списком параметров используем компонент класса TListBox. В
нем можно хранить различные списки параметров, которые дают пользователю программы возможность выбора одного или нескольких параметров.
Для доступа к строкам списка используется свойство Items. Оно во многом похоже свойству Lines класса TMemo.
Для выбора параметра списка используем следующий метод:
Procedure TForm1.ListBox1Click (Sender: TObject);
Begin
Edit1.Text := ListBox1.Items.Strings[ListBox1.ItemIndex];
End;
Свойство ItemIndex указывает на выделенную строку списка выбора.
Для добавления новой строки, как и в TMemo используем метод
ListBox1.Items.Add(’12345’);
Для удаления обработаем событие OnClick для кнопки Button1
Procedure TForm1.Button1Click (Sender: TObject);
Begin
ListBox1.Items.Delete(ListBox1.ItemIndex);
End;
Чтобы выбрать несколько элементов списка можно использовать свойство MultiSelect. Устанавливается значение true для выбора нескольких позиций с
помощью мыши. Для этого необходимо щелкать по нужным элементам удерживая клавишу Ctrl.
© ИМПИ ОГПУ
ВЫПАДАЮЩИЕ СПИСКИ
Выпадающие (или раскрывающиеся) списки TComboBox по работе похожи на
списки выбора. Но в них нельзя выбирать сразу несколько элементов. Добавление, удаление, выбор элемента осуществляется аналогично.
Содержимое списков можно сохранять с помощью
ComboBox1.Items.SaveToFile(’<имя файла>’);
и загружать
ComboBox1.Items.LoadFromFile(’<имя файла>’);
Задания для самостоятельной работы
1.Продолжить работу с простейшим текстовым редактором, дополнив его выпадающим списком для выбора названия шрифта. Например, для изменения названия шрифта в метке Label1 на Arial запишем:
Label1.Font.Name := ’Arial’;
2.Напишите программу, складывающую два вектора, которые отображаются на экране в виде списков координат. Ввод координат в вектор осуществляется набором их в строке ввода и нажатием кнопки «Enter». Вам необходимо написать обработчик события OnKeyDown. Инициализацию
количества элементов векторов следует произвести при создании формы в обработчике события OnActivate.
Примечание: Для ввода координат в вектор по клавише Enter обработаем событие OnKeyDown для компонентов класса TEdit
следующим образом:
if (key=vk_return) then // если нажата клавиша Enter, тогда ...
© ИМПИ ОГПУ