Delphi. Страница Dialogs. Васильев В.В - 15 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

15
(* Определяется номер символа, с которого будет продолжен
поиск *)
Index:=index+Found+ReplaceLen-1;
(* Определяется номер символа, с которого образец поиска
встречается в урезанном тексте *)
Found:=Pos(ToFind,FindIn);
end; {While}
(* В конце поиска выдается информационное окно *)
MessageDlg('Просмотр документа окончен',mtInformation,
[mbOK],0);
(* Обнуляется текущая позиция поиска *)
index:=0
end {Then}
else
(* Обработка нажатия кнопки
Заменить в окне замены *)
(* Выделенный текст заменяется на заданное слово *)
Memo1.SelText:=ReplaceDialog1.ReplaceText;
end;
13. Запустите программу на исполнение. Откройте какой-
нибудь файл. Попробуйте найти и заменить в тексте какое-
нибудь слово. Протестируйте работу кнопки Заменить все
Run⏐Run
14. Сохраните результаты работы
File⏐Save
Задание: добавьте в проект возможность поиска и замены только
целых слов и возможность учета различий между прописными и
строчными буквами.
15. Создайте
процедуру об-
работки пункта
меню Справ-
ка⏐О програм-
ме…
procedure TMainform.N23Click(…);
begin
MessageDlg('Программа создана <Ваши Фами-
лия Имя Отчество>ДД.ММ.ГГ',
mtInformation, [mbOK],1)
end;
16. Запустите программу на исполнение. Протестируйте ра-
боту команды Справка⏐О программе…
Run⏐Run
17. Сохраните результаты работы
File⏐Save
Задание: добавьте в проект справочную систему по возможно-
стям текстового редактора, оформленную в виде отдельной формы.
Предусмотрите возможность поиска справочной информации по клю-
чевому слову в названии темы.
Задание: создайте панель инструментов (см. рис. 9).
В примерах работы информационное окно выводилось с помощью
процедуры MessageDlg(‘<текст в окне>‘,<оформление окна>,<набор
кнопок
>, <определение нажатой кнопки>).
Параметр <оформление окна> имеет тип TMsgDlgType. Данный тип
относится к перечислимым типам. На месте параметра может стоять одно
из возможных значений перечислимого типа TMsgDlgType:

Страницы