- •Содержание
- •Лабораторная работа № 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. Сохраните программу и убедитесь в правильности ее работы.
6. Вспомогательное меню.
Создайте опции для компонента TPopupMenu. Названия опций вспомогательного меню: картинка, шрифт, цвет.
Чтобы связать щелчок правой кнопки мыши, указав компонент, с раскрытием вспомогательного меню в свойство PopupMenu компонента Panel1 необходимо поместить имя компонента-меню. Можно выбрать имя вспомогательного меню из списка свойств PopupMenu.
7. Диалоги.
Поместите на форму компоненты панели Dialogs: OpenPictureDialog1; ColorDialog1; FontDialog1.
Для соответствующих пунктов вспомогательного меню создайте обработчики событий:
Для пункта меню Шрифт:
procedure Tlab4.N8Click (Sender: TObject);
begin
if FontDialog1.Execute then Panel1.Font := FontDialog1.Font;
end;
Для пункта меню Картинка:
procedure Tlab4.N6Click (Sender: TObject);
begin
if OpenPictureDialog1.Execute and FileExists(OpenPictureDialog1.FileName) then Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
Для пункта меню Цвет:
procedure Tlab4.N10Click (Sender: TObject);
begin
if ColorDialog1.Execute then Panel1.Color := ColorDialog1.Color;
end;
Для проверки правильности ваших действий осуществите прогон программы.
На форму Лабораторная работа №2 поместите компоненты: MainMenu1; SaveDialog1; OpenDialog1.
Создайте опции главного меню формы Lab2:
I. Записать в файл. II.Считать из файла
Создайте для соответствующих опций меню обработчики событий OnClick:
procedure TLab2.N1Click (Sender: TObject);
begin
if SaveDialog1.Execute then Memo1.Lines.SaveToFile (SaveDialog1.FileName); end;
procedure TLab2.N2Click (Sender: TObject);
begin
if OpenDialog1.Execute and FileExists(OpenDialog1.FileName) then Memo1.Lines.LoadFromFile (OpenDialog1.FileName);
end;
На форму Лабораторная работа №3 поместите компоненты: MainMenu1; SaveDialog1.
Для главного меню формы создайте опцию «Записать в файл».
Создайте для меню обработчик события OnClick:
procedure TLab3.N1Click (Sender: TObject);
type TClas = record f:string[30]; p:string[1]; ss: real; end;
var ff:File of TClas; Cl: TClas; i:integer;
begin
if SaveDialog1.Execute then AssignFile (ff,SaveDialog1.FileName)
else Exit;
rewrite(ff);
for i:= 1 to n do
begin
Cl.f:=f[i]; Cl.p:=p[i]; Cl.ss:= ss[i];
Write(ff,Cl);
End;
CloseFile(ff);
End; end;
8. Для проверки правильности ваших действий осуществите прогон программы.
Подготовьте свой каталог Lab4 для выполнения самостоятельной работы.
Новые свойства и методы:
-
Свойства
Color
Определяет цвет компонента.
Font
Определяет шрифт компонента.
Picture
Центральное свойство класса. Служит контейнером изображения.
Stretch
Разрешает/запрещает изменять размер изображения так, чтобы оно целиком заполнило клиентскую область компонента.
Методы
LoadFromFile
Загрузить из файла
SaveToFile
Записать в файл
Execute
Создает и показывает на экране окно диалога. Логическая функция, возвращаемая в программу True, если результат диалога с пользователем был успешным.
Задания:
На основании приложения, созданного на предыдущей лабораторной работе, создайте главное меню формы, позволяющее переходить от формы к форме.
С помощью стандартного диалога TFontDialog осуществите возможность изменения шрифта в компоненте Memo1 лабораторной работы №2. Осуществите запись результатов расчетов в лабораторной работе №2. Эти функции приложения должны выполняться с помощью главного и вспомогательного меню.
С помощью компонента TColorDialog осуществите возможность изменения цвета таблицы TStringGrid. Осуществите запись результатов расчетов в лабораторной работе №3. Эти функции приложения должны выполняться с помощью главного и вспомогательного меню.
Создайте главное меню формы Lab2: «Режим работы»; «Настройка». В пункте меню «Режим работы» должны существовать подопции: «Расчет единичный»; «Расчет интервальный»; «Запись результатов расчета в файл». В пункт меню «Настройка» включить подопции, позволяющие изменять цвет и шрифт компонентов формы.
Возможность перехода от формы к форме осуществите с помощью главного меню формы. Изменение цвета и шрифта компонента осуществите с помощью вспомогательного меню. Компоненты выбрать по своему усмотрению.
Программу запишите в Ваш каталог Lab4.