- •«Первые простые программы». Блокнот.
- •Свойства компонента txt
- •Компонент меню
- •Компоненты диалоговых окон открытия и сохранения файла
- •Событие Onclick команды меню Файл Новый.
- •Введите код, выделенный ниже полужирным шрифтом:
- •Событие Onclick команды меню Файл Открыть
- •Событие OnClick команды меню Файл Сохранить
- •Событие OnClick команды меню Файл Выход
- •Событие OnCreate формы
- •Сохраните создаваемый проект в своей папке.
- •Компиляция и запуск программы
- •Файл Close All.
- •Выполните самостоятельно:
- •Калькулятор.
- •Сохраните создаваемый проект в своей папке.
- •Компиляция и запуск программы
- •Файл Close All.
- •Выполните самостоятельно:
- •Краткие теоретические сведения к пункту 10.7.
- •В Object Pascal это выражение будет выглядеть так:
Свойства компонента txt
Свойство |
Значение |
Пояснение |
Align |
alClient |
На всю форму |
Lines |
Очистить или ввести текст, который будет отображаться по умолчанию Приступайте смелее к работе |
Текстовое содержимое компонента |
Font.Name |
Указать требуемые значения в окне «Выбор шрифта» |
Название шрифта |
Font.Color |
Цвет шрифта |
|
Font.Size |
Размер шрифта |
Компонент меню
Создайте меню программы. Для этого используйте компонент MainMenu со вкладки Standard палитры компонентов.
В Delphi имеется два компонента, представляющие меню: MainMenu — главное меню, и PopupMenu — всплывающее меню. Оба компонента расположены на странице Standard. Эти компоненты имеют много общего. Это невизуальные компоненты, т.е. место его размещения на форме в процессе проектирования не имеет никакого значения для пользователя — он все равно увидит не сам компонент, а только меню, сгенерированное им.
Основное свойство компонента — Items. Его заполнение производится с помощью Конструктора Меню, вызываемого двойным щелчком на компоненте или нажатием кнопки с многоточием рядом со свойством Items в окне Инспектора Объектов.
Контекстное меню (PopUpMenu) привязано к конкретным компонентам. Оно всплывает, если во время, когда данный компонент в фокусе, пользователь щелкнет правой кнопкой мыши. Оконные компоненты: панели, окна редактирования, а также метки и др. имеют свойство PopupMenu, которое по умолчанию пусто, но куда можно поместить имя того компонента PopupMenu, с которым будет связан данный компонент.
У нас будет только меню Файл, в котором будут пункты Новый, Открыть, Сохранить и Выход.
Для того чтобы создать пункты меню, следует перетащить компонент на форму и дважды щелкнуть мышью на компоненте MainMenul, в результате чего откроется редактор меню, изображенный на рис. 1.1. Для того чтобы добавить новый пункт, следует щелкнуть мышью в этом окне на пустом элементе меню, и изменить в инспекторе объектов значение свойства Caption ("заголовок"), дальше ENTER если подпункт меню и выделить пустой элемент и снова Caption и т. д.
Создайте вначале пункт главного меню (в нашем примере — Файл), а затем — его команды Новый, Открыть, Сохранить и Выход. Для того чтобы создать разделитель перед командой Выход, свойству Caption соответствующего элемента меню следует присвоить значение - (дефис). После того как меню создано, редактор меню можно закрыть.
Компоненты диалоговых окон открытия и сохранения файла
Для вызова из программы диалоговых окон открытия и сохранения файла разместите на форме компоненты OpenDialog
и SavеDialog
со вкладки Dialogs
палитры компонентов.
В приложениях часто приходится выполнять стандартные действия: открывать и сохранять файлы, задавать атрибуты шрифтов, выбирать цвета палитры, производить контекстный поиск и замену и т.п. Разработчики Delphi позаботились о том, чтобы включить в библиотеку простые для использования компоненты, реализующие соответствующие диалоговые окна. Они размещены на странице Dialogs.
Компоненты OpenDialog — диалог «Открыть файл» и SaveDialog — диалог «Сохранить файл как...», пожалуй, используются чаще всего, в большинстве приложений. Основное свойство, в котором возвращается в виде строки выбранный пользователем файл, — FileName. Типы искомых файлов, появляющиеся в диалоге в выпадающем списке Тип файла, задаются свойством Filter. В процессе проектирования это свойство проще всего задать с помощью редактора фильтров, который вызывается нажатием кнопки с многоточием около имени этого свойства в Инспекторе Объектов. Свойство FilterIndex определяет номер фильтра, который будет по умолчанию показан пользователю в момент открытия диалога.
Свойство InitialDir определяет начальный каталог, который будет открыт в момент начала работы пользователя с диалогом. Если значение этого свойства не задано, то открывается текущий каталог или тот, который был открыт при последнем обращении пользователя к соответствующему диалогу в процессе выполнения данного приложения.
Свойство DefaultExt определяет значение расширения файла по умолчанию. Если значение этого свойства не задано, пользователь должен указать в диалоге полное имя файла с расширением. Если же задать значение DefaultExt, то пользователь может писать в диалоге имя без расширения. В этом случае будет принято заданное расширение. Свойство Title позволяет вам задать заголовок диалогового окна. Свойство Options определяет условия выбора файла.
Кнопки SpeedButton имеют возможность отображения пиктограмм и могут использоваться как обычные управляющие кнопки или как кнопки с фиксацией нажатого состояния. Изображение на кнопке задается свойством Glyph.
Особенностью кнопок SpeedButton являются свойства GroupIndex (индекс группы), AllowAllUp (разрешение отжатого состояния всех кнопок группы) и Down (исходное состояние — нажатое). Если GroupIndex = 0, то кнопка ведет себя так же, как Button и BitBtn. При нажатии пользователем кнопки она погружается, а при отпускании возвращается в нормальное состояние. В этом случае свойства AllowAllUp и Down не влияют на поведение кнопки.
Если Grouplndex > 0 и AllowAllUp = true, то кнопка при щелчке пользователя на ней погружается и остается в нажатом состоянии. При повторном щелчке пользователя на кнопке она освобождается и переходит в нормальное состояние (именно для того, чтобы освобождение кнопки состоялось, необходимо задать AllowAllUp = true). Если свойство Down во время проектирования установлено равным true, то исходное состояние кнопки — нажатое.
Если есть несколько кнопок, имеющих одинаковое ненулевое значение GroupIndex, то они образуют группу взаимосвязанных кнопок из которых нажатой может быть только одна. Если одна кнопка находится в нажатом состоянии и пользователь щелкает на другой, то первая кнопка освобождается, а вторая фиксируется в нажатом состоянии.
Состояние кнопки во время выполнения можно определить по значению свойства Down: если значение равно true, то кнопка нажата. Во время события OnClick значение Down уже равно тому состоянию, которое примет кнопка в результате щелчка на ней.
Для обоих компонентов OpenDialog и SavеDialog свойству Filter ("фильтр") присвойте; значение Блокнот | * . txt | Все файлы | * . *
В окне слева запишите Блокнот, справа * . txt
В следующей строке, соответственно: Все файлы и справа * . *
Для быстрого переключения между формой и окном редактора кода можно воспользоваться клавишей <F12>.
