Компоненты Delphi (Memo (TMemo) - текстовое поле, TMainMenu, TOpenDialog)

Продолжим знакомство с компонентами Delphi. Следующий на очереди Memo – текстовое поле. Он так же расположен на закладке Standart.

Этот компонент предназначен для редактирования многострочного текста. Для иллюстрации работы этого, а так же некоторых других компонентов напишем простой текстовый редактор типа «Блокнот». И так, кладем на форму компонент Memo, Присваиваем ему идентификатор moText. Затем кладем на форму компонент MainMenu (TMainMenu)* .

Присваиваем ему идентификатор mmMainMenu. В Object Inspector-е редактируем свойство Items, путем нажатия на кнопку вызова диалога редактирования свойства. У нас откроемся вот такое окно*:

Курсор стоит на первом, еще не созданном пункте меню. Создадим его, введя в Object Inspector-е его идентификатор и заголовок*.

У нас в окне появилась надпись «Файл». Слева от нее шаблон для нового пункта меню. Давайте и его введем. Идентификатор itEdit, заголовок «Редактирование».  Теперь будем редактировать подменю. В меню файл создадим пункт «Открыть» с идентификатором itOpen*.

Теперь нам нужен диалог открытия файла. Он находиться на закладке Dialogs*.

Положим его на форму и присвоим идентификатор odOpenDialog. У данного компонента есть свойство filter. Давайте отредактируем его, что бы наша программа открывала либо текстовые файлы, либо все файлы*.

В качестве значения свойства DefaultExt укажем txt.

Создадим обработчик OnClick пункта меню «Открыть». Введем в нем такие строки:

В данном тексте вам встретилось новое ключевое слово «if». Это оператор условия. Если условие после него и до слова «then» выполняется, то запускается часть программs после слова «then». Что бы определить, до каких пор должна выполнятся программа после «then» существуют слова begin и end (начало и конец соответственно).

Если условие не выполняется, то программа переходит сразу  к той части. Которая стоит после блока, выполняющегося по условия. В данном случае там ничего не стоит. Иными словами, если функция Execute компонента OpenDilaog вернет false, а это произойдет только в том случае, когда пользователь просто закрыл диалог, не выбрав никакого файла, то программа ничего делать не будет.

И так, давайте испытаем нашу программу. Запустите ее и через пункт меню «Файл» à «Открыть» откроем какой нибудь текстовый файл.

Скриншоты, помеченные знаком * , являются цитатами и иллюстрациями   программного продукта "Delphi", авторское право на который принадлежит "Borland Software Corporation".