Реализация выпадающего вертикального меню, 1 из многих возможных вариантов. Этот хорош предельной простотой - вся реализация делается одной функцией Popup. Больше примеров есть в этой главе и Приложении 4 учебника

Поскольку рисование рамок использует специфичные для кодировки DOS символы псевдографики, листинг можно взять из прикреплённого файла.

 pas_menu.pas (3 Кб)

гостевая; E-mail