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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

9
1-3. Работа с буфером обмена.
4-5. Выделение текста и очистка рабочей области редактора.
6-7. Тестирование программы и сохранение проекта.
8-11. Добавление диалогов выбора формата шрифта и цвета фона.
12-13. Запуск программы на исполнение. Сохранение результатов работы.
Пример работы 3: Подсказка
1. Напишите процедуру об-
работки выбора команды
Правка⏐ Копировать
procedure TMainform.N11Click(…);
begin
Memo1.CopyToClipboard;
end;
2. Напишите процедуру об-
работки выбора команды
Правка⏐ Вырезать
procedure TMainform.N12Click(…);
begin
Memo1.CutToClipboard;
end;
3. Напишите процедуру об-
работки выбора команды
Правка⏐ Вставить
procedure TMainform.N13Click(…);
begin
Memo1.PasteFromClipboard;
end;
4. Напишите процедуру об-
работки выбора команды
Правка⏐ Очистить
procedure TMainform.N14Click(…);
begin
Memo1.Lines.Clear;
end;
5. Напишите процедуру об-
работки выбора команды
Правка⏐ Выделить все
procedure TMainform.N15Click(…);
begin
Memo1.SelectAll;
end;
6. Запустите программу на исполнение. Откройте какой-нибудь
файл. Проверьте работу пяти первых пунктов меню Правка
Run⏐Run
7. Сохраните результаты работы
File⏐Save
8. Поместите на форму компонент FontDialog
Закладка Dia-
logs
9. Создайте процедуру об-
работки пункта меню
Правка⏐Шрифт…
procedure TMainform.N17Click(…);
begin
If FontDialog1.Execute then
Memo1.Font:=FontDialog1.Font;
end;
10. Поместите на форму компонент ColorDialog
Закладка Dialogs
11. Создайте процедуру об-
работки пункта меню
Правка⏐Цвет фона…
procedure TMainform.N18Click(…);
begin
If ColorDialog1.Execute then
Memo1.Color:=ColorDialog1.Color;
end;
12. Запустите программу на исполнение. Откройте какой-нибудь
файл. Проверьте работу двух последних пунктов меню Правка
Run⏐Run
13. Сохраните результаты работы
File⏐Save
В примере работы 4 будут созданы обработчики пунктов меню Поиск
и Справка.

Страницы