Использование компонентов в интегрированной среде Delphi "Метод Drag-and-drop"

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

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

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

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

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

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

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

ifSourceisTListBoxthen   // если источник – объект  класса TListBox

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

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

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

нач

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

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

кон;

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

Мне больше нечего сказать про эту лабораторную работу, качайте и пользуйтесь)

Надеюсь, Вам помог этот сайт и я в частности))

Присоединяйся

Зарегестрируйся с помощью социальных сетей.

Публикуй

Опиши работу, прикрепи файлы и назначь цену.

Зарабатывай

Получай пассивный доход с продажи работ.

Тебе понадобится 5 минут для публикации работы на сайте.
Скачать

бесплатно

Delphi Лабораторная работа №8.doc
90112
Оцени работу

рейтинг

Поделись работой с друзьями

Мы не грузим циферки, чтоб ты увидел контент как можно быстрее;

Комментарии (0)

monks_jk

/ /

Оставить комментарий

Ты не можешь комментировать

Только зарегестрированые пользователи имеют возможность комментировать работы
Использование компонентов в интегрированной среде Delphi "Метод Drag-and-drop"
Лабораторная работа содержит: 3 страницы, 5 рисунков
Категория: Образование
Стоимость: Бесплатно