Исследование возможностей Delphi по использованию объектов, страница 2

Чтобы запретить изменение текста в текстовом поле с помощью “мыши” или клавиатуры, установить в свойстве ReadOnly значение True. Запустить программу и попробовать удалить или изменить текст в текстовом поле. Нажать кн. Ввод и убедиться, что программным способом изменение текста возможно. Закройте программу.

4.1.3. Многострочное текстовое поле Memo

Для вывода информации в поле используется его свойство Lines.

Значение свойства Lines также может быть задано как на этапе проектирования формы, так и в ходе выполнения программы.

Разместить на форме ниже текстового поля поле Memo. Для задания текста на этапе проектирования в окне свойств задать значение свойства Lines:

Поле Memo

Строка 1

Строка 2

Строка 3.

Запустить программу на выполнение и убедиться, что в списке имеется соответствующий текст. Закрыть программу.

Для вывода текста в список в ходе выполнения программы открыть обработчик события нажатия на кнопку Ввод (Button1Click) и добавить туда команду

Memo1.Lines.Add('Новая строка');

Запустить программу, убедиться, что при каждом нажатии на кнопку Ввод в списке появляется новая строка с текстом “Новая строка”. Закрыть программу.

Для очистки поля Memo используется его свойство Clear.

Добавить на форму еще одну кнопку, создать обработчик события нажатия на кнопку (Button2Click) и добавить туда команду

Memo1.Clear;

Запустить программу, убедиться, что при нажатии на эту кнопку вся информация в поле Memo стирается. Закрыть программу.

4.1.4. Список ListBox

Для вывода информации в список используется его свойство Items.

Значение свойства Items также может быть задано как на этапе проектирования формы, так и в ходе выполнения программы.

Разместить на форме ниже текстового поля список. Для задания текста на этапе проектирования в окне свойств задать значение свойства Items:

Список ListBox

Строка 1

Строка 2

Строка 3.

Запустить программу на выполнение и убедиться, что в списке имеется соответствующий текст. Закрыть программу.

Для вывода текста в список в ходе выполнения программы открыть обработчик события нажатия на кнопку Ввод (Button1Click) и добавить туда команду

ListBox1.Items.Add('Новая строка');

Запустить программу, убедиться, что при каждом нажатии на кнопку Ввод в списке появляется новая строка с текстом “Новая строка”. Закрыть программу.

Для очистки списка ListBox используется его свойство Clear.

Добавить на форму еще одну кнопку, создать обработчик события нажатия на кнопку (Button3Click) и добавить туда команду

ListBox1.Clear;

Запустить программу, убедиться, что при нажатии на эту кнопку вся информация в списке ListBox стирается. Закрыть программу.

4.1.5. Функция ShowMessage

Для вывода информации в простейшее диалоговое окно используется функция ShowMessage. Синтаксис функции:

ShowMessage (<Текст сообщения>).

Для вывода текста в простейшее диалоговое окно открыть обработчик события нажатия на кнопку Ввод (Button1Click) и добавить туда команду

ShowMessage('Вывод данных с помощью функции ShowMessage');

Запустить программу, убедиться, что при нажатии на кнопку Ввод появляется диалоговое окно с текстом “Вывод данных с помощью функции ShowMessage”. Зарисовать вид окна в отчет. Закрыть программу.

4.1.6. Функция MessageBox

Для вывода информации в диалоговое окно можно также использовать функцию MessageBox. Синтаксис функции:

MessageBox (<Владелец_окна>, <Текст>, <Заголовок>, <Кнопки>).

Владелец окна – определяет программу – владельца окна сообщения. Если этот параметр равен нулю, то окно сообщения не имеет владельца.

Текст – любой текст, который по замыслу программиста должен быть выведен в диалоговое окно.

Заголовок – надпись в строке заголовка диалогового окна.

Кнопки – определяет набор кнопок в диалоговом окне, например, значение параметра MB_OK определяет окно с одной кнопкой OK. Для получения информации о возможных значениях этого параметра следует обратиться к справочной системе.

Открыть обработчик события нажатия на кнопку Ввод (Button1Click) и добавить туда команду

MessageBox(0, 'Вывод данных с помощью функции MessageBox',
           'Вывод данных', MB_OK);