![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Простейший текстовый редактор
Выложим на форму TMemo, и TMainMenu. Установим свойство Align в alClient для того, чтобы компонент растянулся на все свободное пространство формы. Установим свойство ScrollBars в ssBoth, а WordWrap в False. И уберем введенный в Memo1 текст по умолчанию, удалив этот текст из свойства Lines. Щелкнем по MainMenu1 два раза - появится окно. Теперь создадим меню " Файл". В нем элементы: " Создать", " Открыть", " Сохранить", " Сохранить как...", разделительную полоску (символ " -") и " Выход". Установим горячие клавиши как показано на рис 1. Горячие клавиши устанавливаются в свойстве ShortCut Рис. 1 - Меню " Файл" Аналогично создаем меню " Правка": Рис. 2 - Меню " Правка" Аналогично создаем меню " Формат": Рис. 3 - Меню " Формат" Итак, начнем. Окошко редактора меню нам больше не нужно - его можно закрыть. На нашей форме уже появилось меню. Оно выпадает при щелчке, в общем практически рабочее. Осталось только написать код, который будет выполняться при выборе чего-либо из меню. Щелкнем по меню " Файл", а там выберем " Выход". Рис. 4 - Создание события onClick После нажатия по меню " Выход" появляется окно редактора кода с уже готовой процедурой. Пишем: Close; Обратите внимание, что Close и Form1.Close это одно и тоже. Т.к. форма является родителем то имя родителя можно опускать. Теперь после выбора меню " Выход" программа закроется.
|