Практическая работа № 8. Разработать проект, предоставляющий возможность выбирать из множества символов русского алфавита гласные буквы

Метод Drag-and-drop

План работы:

Задание 1

Проект “Выбор гласных”

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

1. Создайте новый проект в Delphi и сохраните его в отдельной папке “Выбор гласных”;

2. Разместите на форме два компонента ListBox: ListBox1 необходим для хранения символов русского алфавита, ListBox2 – гласных букв. Оформите форму в соответствие с требуемым видом;

3. На событие OnCreate формы в ListBox1 поместите все символы русского алфавита: Для этого в цикле переберите все буквы от а до я и добавьте их в свойство ListBox1.Items

4. Так как перенос букв должен быть осуществлен из обоих списков, установите свойство DragMode = dmAutomatic для обоих списков;

5. При перемещении над списком курсора, перетаскивающего символ из другого списка, возникает событие OnDragOver. В процедуре обработки этого события для обоих списков напишите следующее;

if Source is TListBox then // если источник – объект класса TListBox

Accept: = true; // то разрешить перетаскивание

6. При отжатии пользователем клавиши мыши над списком, в список (куда переносили) должна добавляться буква, а из списка (откуда переносили) – удаляться. Обработайте событие OnDragDrop для следующим образом:

Если источник- ListBox1 тогда

Нач

в ListBox2 в набор строк добавить из ListBox1 из набора текущий элемент (т.е. элемент с номером ItemIndex)

из ListBox1 из набора удалить текущий эл-нт (эл-нт с номером ItemIndex)

кон;

7. Запустите проект и проверьте, что буквы можно переносить из первого списка во второй;

8. Аналогично реализуйте перенос из второго списка в первый с удалением из второго перенесенных букв;

9. Разместите на форме кнопку “Проверка”, в обработке щелчка по которой проверить гласные буквы, перенесенные во второй список;

10. Проверьте работу проекта.

11. Что происходит, если никакая строка не выделена, или строки исчерпаны? Как избежать ошибки? Доработайте событие OnDragDrop для следующим образом:

Если источник- ListBox1 и ListBox1.ItemIndex> = 0 тогда

Нач

….

кон;

12. Чтобы буквы обратно добавлялись по алфавиту, для компонентов ListBox установите свойство Sorted в true.

13. Проверьте работу проекта.