- •Оглавление
- •20.1. Практическая работа 83
- •Глава I. Знакомство со средой Delphi
- •1.1. Общие сведения
- •Глава II. Создание приложений в среде Delphi
- •2.1. Характеристика проекта
- •2.2. Файл проекта
- •2.3. Файл формы
- •2.4. Файл модуля
- •2.5. Файл ресурсов
- •2.6. Практическая работа
- •Глава III. Использование компонентов
- •3.1. Понятие компонента
- •3.2. Страница Standard.
- •3.3. Страница Additional.
- •3.4. Страница Win32.
- •3.5. Страница System.
- •3.6. Страница Data Access.
- •3.7. Страница Data Controls.
- •3.8. Страница qReport.
- •3.9. Страница Dialogs.
- •3.10. Основные свойства объектов.
- •Глава IV. Работа с кнопками
- •4.1. Стандартная кнопка Button.
- •4.2. Кнопка с рисунком BitBtn.
- •4.3. Кнопка быстрого доступа SpeedButton.
- •4.4. Практическая работа
- •4.5. Самостоятельная работа
- •Глава V. Поля редактирования
- •5.1. Edit-однострочный редактор
- •5.2. Memo-многострочный редактор
- •5.3. Практическая работа
- •5.4. Самостоятельная работа
- •5.5. MaskEdit - специальный редактор
- •5.6. Практическая работа
- •6.3. Структура программы.
- •6 .4. Типы данных
- •6.4.1. Простые типы данных
- •6.4.2. Структурные типы данных
- •6.4.3. Функции и процедуры работы со строками
- •6.4.4. Функции преобразования строк в другие типы.
- •6.5. Операторы языка
- •6.6. Практическая работа.
- •6.8. Самостоятельная работа
- •6.9. Самостоятельная работа
- •6.10. Самостоятельная работа
- •6.11. Обработка исключительных ситуаций
- •Глава VII. Классы в Object Pascal.
- •7.1. Понятие класса
- •7.2. Поля класса
- •7.3. Методы класса
- •Глава VIII. Процедуры и функции, реализующие диалоги
- •8.1. Процедура ShowMessage.
- •8.2. Функция MessageDlg.
- •8.3. Функция MessageDlgPos.
- •8.4. Функция InputBox
- •9.2. Практическая работа
- •9.3. Самостоятельная работа
- •Глава X. Работа со списками
- •10.1. Простой список ListBox.
- •10.2. Комбинированный список ComboBox.
- •10.3. Общая характеристика списков
- •10.3.1. Свойства
- •10.3.2. Методы
- •10.4. Объект UpDown
- •10.5. Практическая работа
- •10.6. Самостоятельная работа
- •10.7. Самостоятельная работа
- •10.8. Самостоятельная работа
- •Глава XI. Объекты MainMenu и PopupMenu.
- •11.1. Основные свойства объектов
- •11.2. Игра «Крестики-нолики»
- •11.3. Самостоятельная работа
- •Глава XII. Использование переключателей.
- •12.1. Объект CheckBox
- •12.2. Объект RadioButton
- •12.3. Объект RadioGroup
- •12.4. Практическая работа
- •12.5. Самостоятельная работа
- •12.6. Самостоятельная работа
- •Глава XIII. Регуляторы величины
- •13.1. Объект ScrollBar
- •13.2. Практическая работа
- •13.3.Объект TrackBar
- •13.4. Самостоятельная работа
- •13.5. Самостоятельная работа
- •13.6. Компонент ProgressBar
- •Глава XIV. Объединение элементов управления
- •14.1. Объект Panel.
- •14.2. Область прокрутки ScrollBox
- •14.3. Фреймы Frame.
- •14.4. Практическая работа
- •14.5. Самостоятельная работа
- •Глава XV. Работа с таблицами
- •15.1. Объекты StringGrid и DrawGrid
- •15.2. Проект «Олимпиада»
- •15.3. Практическая работа
- •15.4. Самостоятельная работа
- •15.5. Самостоятельная работа
- •Глава XVI.Страница Dialogs
- •16.1. Стандартные диалоговые окна Windows
- •16.2. Общие свойства OpenDialog и SaveDialog:
- •16.3. Общие свойства OpenPicyureDialog и SavePictureDialog:
- •16.4. Практическая работа
- •16.5.Объект FontDialog
- •16.6. Объект ColorDialog
- •16.7. Практическая работа
- •16.8. Объекты FindDialog и ReplaceDialog
- •16.9. Проект «Примитивный редактор текста»
- •Глава XVII. Элементы с закладками
- •17.1. Однострочный блокнот TabControl.
- •17.2. Практическое задание
- •17.3. Самостоятельная работа
- •17.4. Многостраничный блокнот PageControl.
- •17.5. Практическая работа
- •Глава XVIII. Иерархические структуры
- •18.1. Объект TreeView
- •18.2. Практическая работа
- •18.3. Самостоятельная работа
- •18.4.Объект ListView
- •18.5. Практическое работа
- •Глава XIX. Работа с датами и временем
- •19.1. Объект DateTimePicker
- •19.2. Объект MonthCalendar
- •19.3. Объект Calendar.
- •19.4. Самостоятельная работа
- •19.5. Объект Timer
- •19.6. Практическая работа
- •19.7. Самостоятельная работа
- •Глава XX. Объект Animate
- •20.1. Практическая работа
- •20.2. Игра «угадай число»
- •Глава XXI. Панели инструментов
- •21.1. Объект ToolBar.
- •21.2. Объект ControlBar
- •21.3. Создание текстового редактора с использованием объекта RichEdit
- •Глава XXII. Графика в Delphi
- •22.1. Класс tCanvas
- •22.2. Класс tFont.
- •22.3. Класс tPen.
- •22.4. Класс tBrush
- •22.5. Класс tGraphic
- •22.6. Класс tPicture
- •22.7. PaintBox - окно для рисования
- •22.8. Практическая работа
- •22.9. Практическая работа
- •22.10. Самостоятельная работа
- •22.11. Объект Shape
- •22.12. Самостоятельная работа
- •22.13. Создание графического редактора
4.3. Кнопка быстрого доступа SpeedButton.
Кнопка быстрого доступа представлена в Delphi компонентом SpeedButton (страница Additional). Помимо обычного и нажатого состояний, она имеет третье состояние – утопленное, или выбранное (включенное).
Использование быстрых кнопок имеет определенные особенности. Все быстрые кнопки группируются, и каждая такая кнопка должна принадлежать одной из групп. Принадлежность кнопки к группе определяет свойство GroupIndex типа Integer. По умолчанию оно равно 0, т.е. кнопка не входит в группу. Определяя одинаковое значение этому свойству для различных кнопок их можно объединить. При этом все кнопки работают согласованно, т.е. если одна из них выбрана и находится в фиксированном нажатом состоянии, то выбор других автоматически отменяется. Поведение кнопки определяется свойством AllowAllUp: если это свойство имеет значение True, утопленная кнопка отпускается только при нажатии любой другой кнопки, входящей в ту же группу; если False кнопку можно освободить повторным щелчком. Включена быстрая кнопка или нет, определяет свойство Down типа Boolean.
4.4. Практическая работа
Создайте приложение. По нажатию на соответствующие кнопки (шрифт, размер, начертание, цвет) появляются кнопки с названиями данных атрибутов, при нажатии на которые будет меняться цвет, размер, начертание и шрифт надписи.
П
оместите
на форму метку и 20 кнопок Button
(переименуйте их соответственно В1-В20).
При запуске программы в окне должны
быть видны надпись «Delphi5»
и кнопки «Шрифт», «Размер», «Начертание»
и «Цвет». Поэтому для всех остальных
кнопок свойству Visible
установите значение False.
Назначьте событие OnClick на кнопку «Шрифт»:
procedure TForm1.B1Click(Sender: TObject);
begin
b5.visible:=true;
b9.visible:=true;
b13.visible:=true;
b17.visible:=true;
end;
Аналогично опишите процедуры на кнопки «Размер», «Начертание» и «Цвет».
При щелчке по кнопке «Arial» выполняется следующая процедура:
procedure TForm1.B5Click(Sender: TObject);
begin
label1.font.name:='Arial';
end;
Аналогично опишите процедуры на оставшиеся кнопки.
4.5. Самостоятельная работа
Поместите на форме семь кнопок BitBtn, каждая их которых обозначает цвет радуги. Разместите на них соответствующие разноцветные надписи. Щелчок по любой из кнопок приводит к изменению цвета формы.
Глава V. Поля редактирования
5.1. Edit-однострочный редактор
Компонент страницы Standard. Предназначен для ввода и/или отображения одной текстовой строки.
Свойство |
Значение |
AutoSelect |
Указывает, будет ли выделяться весь текст в момент получения компонентом фокуса ввода |
AutoSize |
Если True и BorderStyle=bsSingle, высота компонента автоматически меняется при изменении размера вводимого текста |
BorderStyle |
Стиль рамки компонента |
MaxLength |
Определяет максимальную длину вводимой строки |
PasswordChar |
Определяет символ, который будет заменять любой символ текста при отображении в окне |
ReadOnly |
Если содержит True, то текст не может изменяться |
SelText |
Содержит выделенную часть текста |
Text |
Содержит весь текст, введенный в строку |
Методы |
Назначение |
Clear |
Удаляет весь текст |
ClearSelection |
Удаляет выделенный текст |
SelectAll |
Выделяет весь текст |
Undo |
Отменяет последние изменения |
CopyToClipboard |
Копирует выделенный текст в Clipboard |
CutToClipboard |
Вырезает выделенный текст в Clipboard |
PasteFromClipboard |
Копирует содержимое Clipboard в позицию текстового курсора |
SetFocus |
Передает фокус ввода компоненту |
