Обработка команд. Теперь нужно сделать так, чтобы при выборе какого-либо пункта меню выполнялась соответсвующая процедура.
При выборе пунктов меню генерирует событие, которое обрабатывается подпрограммой - обработчиком событий.
Для этого ч перекрыл стандартный обработчик событий HandleEvent объекта TApplication.
Для этого в описании объекта TSklVks добавил еще одну строку Type TSklVks Object TApplication Procedure HandleEvent var Event Tevent virtual End и поместил в раздел объявлений текс новой подпрограммы Procedure TSklVks. HandleEvent var Event TEvent Begin TApplication. HandleEvent Event if Event. What evCommand then case Event. Command of cmPrnSklad Begin PrintSklad End cmSklad begin Sklad end cmZak Begin Zak End cmHelp About Begin Help About End cmPrihod Begin Prihod End cmPrih Begin Prih End cmDostup begin Dostup end cmRekviz begin rekviz end cmKurs Begin Kurs end cmPriceList Begin GetDate yyyy, mm, dd, ww PriceList dd, mm, yyyy ClearEvent Event end cmSdelka Begin Sdelki End cmVozvrat Begin Vozvrat End cmKorPrihod Begin KorPrihod End cmDolgi Begin Dolgi End cmMoney Begin Money End cmArchive Begin Arc End else ClearEvent Event end ClearEvent Event End 2.6.4.4