Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Delphi (новый) без баз данных.doc
Скачиваний:
1
Добавлен:
01.07.2025
Размер:
7.61 Mб
Скачать

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

Передает фокус ввода компоненту