- •Содержание
- •Лабораторная работа № 1
- •1.1 Главное окно Delphi.
- •1.2 Окно формы.
- •1.3 Окно инспектора формы.
- •1.4 Окно программы.
- •Лабораторная работа №2
- •Ход работы
- •5. Свойство Anchors.
- •6. Компонент tRadioGroup.
- •7. Компонент tGroupBox.
- •8. Компонент tCheckBox.
- •9. Компонент tScrollBar.
- •Лабораторная работа №3.
- •Ход работы
- •Лабораторная работа №4
- •Ход работы
- •1. Загрузите систему визуального программирования Delphi.
- •3. Компонент Image.
- •5. Шаблон формы.
- •6. Вспомогательное меню.
- •7. Диалоги.
- •I. Записать в файл. II.Считать из файла
- •8. Для проверки правильности ваших действий осуществите прогон программы.
- •Лабораторная работа №5
- •1. Загрузите систему визуального программирования Delphi.
- •2. Организуйте работу Вашего приложения, разработанного на предыдущем занятии (Lab4).
- •Лабораторная работа №6
- •Ход работы
- •1. Загрузите систему визуального программирования Delphi.
- •2. Создайте подкаталог Lab6 в своем каталоге.
- •4. Компонент tStatusBar.
- •5. Интерфейс Drag&Drop.
- •7. События, связанные с мышью.
- •8. Общие свойства компонентов Hint.
- •Лабораторная работа № 7
- •Ход работы
- •1. Загрузите систему визуального программирования Delphi.
- •3. Панели инструментов.
- •4. Многостраничный блокнот.
- •5. Компонент tPaintBox.
- •6. Компоненты tAnimate, tProgressBar, tUpDown, tShape, tTimer.
- •7. Календари.
- •Лабораторная работа № 8.
- •1. Загрузите систему визуального программирования Delphi.
- •3. Смените пиктограмму в левом верхнем углу формы, указав конкретный файл с рисунком пиктограммы в поле значения свойства Icon (пиктограмма) формы.
- •8. Вставьте на панель три флажка (объекты типа CheckBox).
- •17. Запрограммируйте команду «Выход» главного меню, воспользовавшись стандартной процедурой Close.
- •18. Запрограммируйте команду «Очистить поле вывода» контекстного меню.
- •20. Запустите созданную на этот момент программу и исследуйте ее работу.
- •21. Запрограммируйте команду «Табулировать».
- •22. Выполните программу и поупражняйтесь с разными значениями левой, правой границы и шага аргумента. Закройте окно программы «Табулирование функции».
- •Лабораторная работа № 9.
- •2. Откройте новую форму с многостраничным блокнотом.
- •3. Выделите и удалите клавишей Delete панель (Panel2) с кнопками ok, Cancel и Нelp в нижней части открытой формы.
- •4. Поменяйте заголовок формы с «Tabbed Notebook Dialog» на «Телефонный справочник» и поменяйте стиль границы окна (BorderStyle) на Sizeable (способный менять размер).
- •5. Выделите (щелкнув внутри страницы мышью) и удалите (Delete) третью страницу блокнота TabSbeet3.
- •7. Заполните обе страницы формы визуальными объектами так, как это показано на рис. 6 и рис. 7.
- •8. Сохраните выполненную на данный момент форму в своей папке.
- •18. Добавьте на форму два объекта - стандартные диалоги Windows для открытия и сохранения файлов.
- •19. Запрограммируйте процедуры открытия и сохранения файлов телефонного справочника (команды главного меню «Прочитать из файла» и «Записать в файл»).
- •20. Напишите процедуру создания формы.
- •21. Напишите процедуру заполнения полей редактирования NewEdit.
- •22. Напишите процедуру заполнения комбинированного списка NewComboBox.
- •24. Запрограммируйте команду главного меню «Сохранить изменения в списке записей».
- •25. Запрограммируйте кнопку перехода на предыдущую запись «Предыдущий».
- •26. Аналогично запрограммируйте кнопку «Следующий».
- •27. Сохраните программу и убедитесь в правильности ее работы.
1.4 Окно программы.
Окно программы предназначено для создания и редактирования текста программы. Этот текст составляется по специальным правилам и описывает алгоритм работы программы. Первоначально окно кода содержит минимальный исходный текст, обеспечивающий нормальное функционирование пустой формы в качестве полноценного Windows-окна. В ходе работы над проектом программист вносит необходимые дополнения, чтобы придать программе нужную функциональность. Используя линейки прокрутки, просмотрите содержимое окна программы.
Вместе с окном кода обычно активизируется также окно навигатора кода, облегчающее поиск нужных элементов в случае, когда в окне набрано много строк кода. При разработке несложных учебных программ можно закрыть это окно маленькой кнопкой с крестиком в его верхнем правом углу. Восстановить закрытое окно броузера можно после щелчка правой кнопкой мыши по окну программы и выбора опции View/Code Explorer. Закройте, откройте и вновь закройте окно броузера.
Дважды щелкнув по правой части строки события OnClick, вы заставили Delphi самостоятельно сделать заготовку для процедуры обработчика события OnClick.
procedure TForm1.Button1Click(Sender: TObject);
begin
. . .
end;
Между операторными скобками Begin и End введите следующие операторы языка Object Pascal:
x:= StrToFloat(Edit1.Text);
y:= x/400;
Memo1.Lines.Add(FormatFloat('####.## Граммов =', x) +
FormatFloat('####.## Фунтов', y));
Дополните описание переменных модуля. После var Form1: TForm1; добавьте x,y: real;
В первом операторе присваивания содержимое окна редактора преобразуется в вещественное число. Второй оператор присваивания – формула пересчета. Для отражения результата расчета в окне TMemo используется метод Add этого компонента. Метод Add класса TStringList добавляет новую строку к имеющемуся в Lines набору строк. Добавленная строка отображается на экране. Параметром метода является строковая переменная. Строковая переменная складывается из строкового представления вещественных переменных x и y. Функция FormatFloat форматирует значение с помощью описанного формата.
Осуществите прогон программы, нажав клавишу <F9>. Введите в окно редактора любое число, нажмите на кнопку <Ввод> и Вы получите результат в окне многострочного редактора.
Минимизируйте окно Delphi и удалите все файлы в каталоге Lab1.
Задания:
Создайте приложения для пересчета величин из одной системы измерения в другую:
-
№
Исходные данные
1
Давление: 1мм.рт.ст. = 133Па
2
Длина: 1дюйм = 2,54 см
3
Объем: 1 бушель = 36,37 дм3
4
Энергия: 1 калория = 4,19 Дж
5
Длина: 1 ярд = 0,9144 м
Программу запишите в каталог Lab1(File/SaveProject as).