Объекты FindDialog и ReplaceDialog

Begin

Begin

Практическая работа

Создадим приложение, на примере которого рассмотрим работу с диалогами выбора шрифта и цвета. На форме расположим компоненты Button1, Button2, Label1, ColorDialog1(CD1) и FontDialog1(FD1)

Кнопка Button1 вызывает диалог выбора шрифта для текста, содержащегося в Label1. Кнопка Button2 вызывает диалог выбора цвета для окна приложения.

procedure TForm1.Button1Click(Sender: TObject);

if FD1.execute then

label1.font:=FD1.font;

end;

procedure TForm1.Button2Click(Sender: TObject);

if CD1.execute then

Form1.color:=CD1.color;

end;

Стандартные диалоговые окна для поиска и замены текстового фрагмента

Свойство	Значение
FindText	Указывает образец для поиска
Position	Содержит горизонтальную и вертикальную позицию верхнего левого угла места появления окна
Options	Определяет настройку диалога: frDown – устанавливает поиск вперед по тексту frFindNext – сообщает программе, что пользователь нажал кнопку «Найти далее» frReplace – используется в компоненте ReplaceDialog и указывает на необходимость замены текущего выбора frReplaceAll - используется в компоненте ReplaceDialog и указывает на необходимость замены всех вхождений образца поиска
ReplaseText	Содержит текст замены

Для компонентов определены следующие события:

OnFind – возникает при нажатии на кнопку «Найти далее». Обработчик события находит образец в тексте и показывает его пользователю.

OnReplace - возникает при нажатии кнопки «Заменить» или «Заменить все»

16.9. Проект «Примитивный редактор текста»

Создадим редактор, в котором можно создавать, просматривать, сохранять текстовые файлы, изменять шрифт и цвет символов, искать нужное слово.

Разместите на форме компонент Memo и MainMenu с соответствующими пунктами: Файл/(Создать, Открыть, Сохранить, Выход), Формат/(Шрифт, Цвет), Правка/(Найти, Заменить), и панель состояния StatusBar

Файл/Создать

procedure TForm1.New1Click(Sender: TObject);

Дата добавления: 2015-05-09