- •Введение.
- •Консольные приложения.
- •Var I : integer;
- •Знакомство со средой программирования Delphi.
- •Создание теста с помощью функции MessageBox.
- •Var I:integer;
- •Var otv: array[1..12] of integer; m: array[1..12]of string; t,ball, I: integer;
- •Кнопка с рисунком. Создание формы для изменения иконки и стиля формы
- •Создание программы – простейший калькулятор.
- •Создание приложения для нахождения корней квадратного уравнения.
- •Создание инженерного калькулятора
- •If (Sender is tButton)
- •Изучение компонента Image и его свойств.
- •Создание приложений для решения математических задач.
- •Создание простейшего текстового редактора «Блокнот»
- •Создание приложения графический редактор.
- •If ssLeft in Shift then begin
- •И зучение графических возможностей Delphi при решении математических задач.
- •Работа со списками классов tListBox и tComboBox.
- •Механизм Drag-And-Drop – копирование и перенос объектов.
- •If Copy.Checked
- •If Cut.Checked
- •Изучение методов и свойств компонента ListBox с помощью Delphi Library Reference Help.
- •Изучение свойств и методов компонента класса tTabbedNotebook.
- •Создание приложения сезоны года с использованием оператора Case.
- •Создание приложения графический редактор – рисование от руки.
- •Initialization
- •Image1.Canvas.MoveTo (X, y);
- •Var NachPoint_Move, KonPoint_Move : tPoint;
- •If Clipboard.HasFormat(cf_bitmap) then
- •Image1.Canvas.Draw(0, 0, Bitmap);
- •Работа с базами данных в Delphi. Перемещение по записям при помощи кнопок.
- •Создание собственной структуры базы данных
- •Создание меню.
- •Создание заставки для проекта работы с окном формы.
- •Var Region: hrgn; //переменная описатель будущего региона, имеет тип hrgn
- •If IsMouseDown
- •Var Fr : tForm2;
- •Создание приложения для работы с базой данных ms Access.
- •Создание псевдонима базы данных FilesDb
- •Создание формы Form2 для просмотра данных запроса, созданного в программе ms Access.
- •Создание sql запросов.
- •Создание параметрических запросов:
- •Проектирование интерфейса приложения для работы с базой данных
- •Работа с типизированными файлами.
- •If OpenDialog1.Execute and fileExsist(OpenDialog1.Filename) then
- •If OpenDialog1.Execute then
- •Создание приложение Органайзер
- •Добавьте проект следующими возможностями:
- •Работа с компонентом StringGrid для создания электронных таблиц
- •If opendialog1.Execute then
- •Программирование графических тестов.
- •Создание программы – тест.
- •И спользование генератора случайных чисел при решении задач.
- •Создание проекта игры dxball.
- •If StartSharLog
- •If IntersectRect(r1, Doska.BoundsRect, Shar.BoundsRect)
- •Var r2 : tRect; r3 : tRect; I : integer;
- •If IntersectRect(r1, r2, r3)
- •Создание простых проектов.
- •Создание приложения Многооконный редактор
- •Создание интерфейса программы:
- •Var lDoc:tList; //объявление переменной типа tList – список, в котором буду храниться указатели на создаваемые пользователем формы документов
- •X, y: Integer);
- •If OpenDialog1.Execute then
- •If FontDialog1.Execute
- •If Left.Checked then
- •Закрепление полученных знаний по темам: графика, диалоги, меню, компоненты Delphi и их свойства
- •If SaveDialog1.Execute then image1.Picture.SaveToFile(savedialog1.FileName);
- •If OpenDialog1.Execute then image1.Picture.LoadfromFile(opendialog1.FileName);
- •Image1.Canvas.LineTo(X,y);
- •Image1.Canvas.MoveTo(X,y);
- •Создание приложение для шифрования данных методами Цезаря и Аффинной системой
- •1. Создание собственного класса.
- •Var I : integer;
- •Ish_text.Free;
- •Var I : byte;
- •Создание интерфейса программы:
- •Var sdvig,I, j, Index : integer;
- •Var I, j, Index, sdvig, a, b : integer;
- •Проверка знаний по теме: Создание программ в среде программирования Delphi
- •1 Задание.
- •Вопросы для самоконтроля.
- •Перечень основной и дополнительной литературы
Изучение свойств и методов компонента класса tTabbedNotebook.
Задание:
Поместить на форму следующие компоненты: TabbedNotebook1, ListBox1, ComboBox1, Button1, Button2, Button3, Button4, Button5, GroupBox1, GroupBox2, GroupBox3, Edit1, Edit2, Edit3, Label1, SpinEdit1. Организовать работу следующим образом:
при выборе страницы РАБОТА СО СПИСКОМ работа строится следующим образом:
при активизации формы происходит заполнение списка ListBox1 и раскрывающегося списка ComboBox1 необходимыми значениями. Затем при выборе кнопки начало происходит переход к первой записи в списке, при выборе кнопки следующая происходит переход к следующей записи в списке ListBox1, а при выборе кнопки предыдущая происходит переход к предыдущей записи в списке ListBox1. При этом в поле ввода Edit1 отображается индекс выбранной записи а в поле Edit2 отражается запись, выбранная в раскрывающемся списке ComboBox1. Затем, если необходимо добавить новую запись в список, то в разделе ДОБАВЛЕНИЯ в поле ввода записывается требуемая информация и выбирается кнопка добавить. Если необходимо удалить запись из списка, то выбирают номер этой записи с помощью поля ввода со счетчиком и нажимают кнопку с надписью удалить.
при выборе страницы РАБОТА С РИСУНКОМ работа строится следующим образом:
при активизации формы происходит заполнение списка ListBox2 и при выборе в списке определенной записи на форме отображается её графическое изображение.
Форма должна иметь следующий вид:
1. первая страница РАБОТА СО СПИСКОМ |
2. вторая страница РАБОТА С РИСУНКОМ |
|
|
ВОПРОСЫ:
Свойства и методы компонента класса TTabbedNotebook
Как добавить на форму рисунок.
Создание приложения сезоны года с использованием оператора Case.
Цель занятия: закрепление навыков использования оператора Case.
Для выполнения задания необходимо:
-Поместить на форму компонент Notebook. Измените свойства добавленного компонента Align – alLeft, Pages – на список Зима, Весна, Лето, Осень
-Поместите на форму компонент TabSet1. Создайте четыре закладки с подписями: Зима, Весна, Лето, Осень.
На событие OnClick для компонента TabSet1 напишите процедуру для перехода между страницами:
procedure TForm1.TabSet1Click(Sender: TObject);
begin
Notebook1.PageIndex:=TabSet1.TabIndex;
end;
Задание содержимого блокнота:
-Измените свойство ActivePage компонента Notebook на Зима.
-Поместите метку в верхнюю часть блокнота, измените имя метки на Зима.
-Поместите под метку компонент ListBox1. Измените свойство Name добавленного компонента на LstZima.
-Скопируйте два объекта – метку и список (удерживая нажатой клавишу Shift) на страницы Весна, Лето и Осень. Измените заголовок метки на Весна, Лето, Осень, а имена списков на lstVesna, lstLeto, lstOsen соответственно.
Вид окна приложения:
На событие OnCreate формы напишите процедуру
procedure TForm1.FormCreate(Sender: TObject);
begin
TabSet1.Tabs:=Notebook1.Pages;
TabSet1.TabIndex:=Notebook1.PageIndex;
end;
Добавление на форму управляющих элементов:
-Поместите на форму компонент GroupBox1 в область формы, не занятую блокнотом.
-Добавьте на GroupBox1 следующие компоненты: Edit1, три кнопки класса TButton. Измените надписи согласно рисунку.
-Для добавления значений в список напишите процедуру:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text<>'' then begin
case (Notebook1.PageIndex+1) of
1:lstZima.Items.Add(Edit1.Text);
2:lstVesna.Items.Add(Edit1.Text);
3:lstLeto.Items.Add(Edit1.Text);
4:lstOsen.Items.Add(Edit1.Text);
end;
Edit1.Text:='';
end;
end;
-Добавьте кнопку для закрытия формы.
-Самостоятельно напишите процедуру для удаления и редактирования записи.
-Добавьте компонент MainMenu1 на форму. В меню добавьте пункты Файл (Открыть, Сохранить), Редактирование (Добавление, Удаление, Редактирование), Выход. Организуйте работу добавленного меню.
ВОПРОСЫ:
Свойства и методы компонента Notebook
Добавление меню на форму.
Как добавить контекстное меню на форму.