then (Sender as TListBox).Items.Add((Source as TListBox).Items[(Source as TListBox).ItemIndex]);
If Cut.Checked
Then if (Sender is TListBox) and (Source is TListBox)
Then begin
(Sender as TListBox).Items.Add((Source as TListBox).Items[(Source as TListBox).ItemIndex]);
(Source as TListBox).Items.Delete((Source as TListBox).ItemIndex);
end;
end;
На событие OnDragOver (переносимый объект находится над переносимым объектом) для компонента ListBox1 напишите процедуру:
procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
Begin
Accept := true;
end;
Примечание: Свяжите написанные события с компонентом ListBox2.
ВОПРОСЫ:
1. Изучение метода OnDragDrop компоента класса TListBox
2. Отличие копирования от переноса.
Задание №15. Изучение методов и свойств компонента ListBox с помощью Delphi Library Reference Help.
Цель занятия: изучить методы и свойства компонента ListBox.
Окна списков являются управляющим элементом, позволяющим выбирать несколько вариантов из списка возможных значений.
Компонент ListBox определяет свойство Items, который является списком элементов типа строки.
Чтобы добавить строку в окно списка можно написать следующее: ListBox1.Items.Add(‘Пример строки’);
Аналогично, для удаления строки используется метод Delete.
По аналогии, чтобы вставить новую строку, можно использовать метод Insert.
По умолчанию компонент становится окном списка с единственным выбором.
Только один элемент в таком списке может быть выбран в каждый момент времени. Этот выбранный элемент подсвечивается и пользователь может перемещать подсветку только во время выполнения, позволяющее вам определить, который из элементов окна списка является выбранным.
Примечание: Один двойной щелчок на элементе в окне списка с единственным выбором вызывает некоторое действие по умолчанию.
Задание. Создать программу, для следующих событий:
— перемещение выбранного элемента в ListBox вверх или вниз;
— заменить выбранный элемент на текст, введённый в поле редактирования.
Примечание: Дополните написанный проект следующими возможностями:
1. Список значений должен сохраняться на внешнем носителе и считываться данные из файла. Для решения задачи рекомендуется добавить меню: Файл – Открыть, Сохранить, Закрыть.
2. Вставить на выбранную позицию (с помощью Insert);
3. Мышкой перетаскивать текст с Edit1 на ListBox1.
ВОПРОСЫ:
1. Методы и свойства компонента ListBox
2. Как добавить, удалить и т.д. значение в списке?
Задание №16. Изучение свойств и методов компонента класса TTabbedNotebook.
Задание:
Поместить на форму следующие компоненты: TabbedNotebook1, ListBox1, ComboBox1, Button1, Button2, Button3, Button4, Button5, GroupBox1, GroupBox2, GroupBox3, Edit1, Edit2, Edit3, Label1, SpinEdit1. Организовать работу следующим образом:
1. при выборе страницы РАБОТА СО СПИСКОМ работа строится следующим образом:
при активизации формы происходит заполнение списка ListBox1 и раскрывающегося списка ComboBox1 необходимыми значениями. Затем при выборе кнопки начало происходит переход к первой записи в списке, при выборе кнопки следующая происходит переход к следующей записи в списке ListBox1, а при выборе кнопки предыдущая происходит переход к предыдущей записи в списке ListBox1. При этом в поле ввода Edit1 отображается индекс выбранной записи а в поле Edit2 отражается запись, выбранная в раскрывающемся списке ComboBox1. Затем, если необходимо добавить новую запись в список, то в разделе ДОБАВЛЕНИЯ в поле ввода записывается требуемая информация и выбирается кнопка добавить. Если необходимо удалить запись из списка, то выбирают номер этой записи с помощью поля ввода со счетчиком и нажимают кнопку с надписью удалить.
2. при выборе страницы РАБОТА С РИСУНКОМ работа строится следующим образом:
при активизации формы происходит заполнение списка ListBox2 и при выборе в списке определенной записи на форме отображается её графическое изображение.
Форма должна иметь следующий вид:
1. первая страница РАБОТА СО СПИСКОМ | 2. вторая страница РАБОТА С РИСУНКОМ |
ВОПРОСЫ:
1. Свойства и методы компонента класса TTabbedNotebook
2. Как добавить на форму рисунок.
Задание №17. Создание приложения СЕЗОНЫ ГОДА с использованием оператора Case.
Цель занятия: закрепление навыков использования оператора Case.
Для выполнения задания необходимо:
-Поместить на форму компонент Notebook. Измените свойства добавленного компонента Align – alLeft, Pages – на список Зима, Весна, Лето, Осень
-Поместите на форму компонент TabSet1. Создайте четыре закладки с подписями: Зима, Весна, Лето, Осень.
На событие OnClick для компонента TabSet1напишите процедуру для перехода между страницами:
procedure TForm1.TabSet1Click(Sender: TObject);
Begin
Notebook1.PageIndex:=TabSet1.TabIndex;
end;
Задание содержимого блокнота:
-Измените свойство ActivePage компонента Notebook на Зима.
-Поместите метку в верхнюю часть блокнота, измените имя метки на Зима.
-Поместите под метку компонент ListBox1. Измените свойство Name добавленного компонента на LstZima.
-Скопируйте два объекта – метку и список (удерживая нажатой клавишу Shift) на страницы Весна, Лето и Осень. Измените заголовок метки на Весна, Лето, Осень, а имена списков на lstVesna, lstLeto, lstOsen соответственно.
Вид окна приложения:
VB.NET ListBox — How To Add, Edit, Remove From Listbox Using Visual Basic .Net [ with source code ]