Технология разработки программного продукта

Понятие компонента является фундаментальным для Delphi. Без компонентов все преимущества визуальной разработки приложения исчезают и говорить становится не о чем. Поэтому соберите все силы и внимательно прочитайте этот раздел, пытаясь усвоить не только формальную сторону вопроса, но и саму суть понятия компонента.

Существует два взгляда на компоненты.

Взгляд снаружи, точнее — из визуальной среды разработки. С этой точки зрения компоненты — это самодостаточные строительные блоки, которые вы берете из Палитры Компонентов и переносите на форму для создания собственно приложения. Примеры компонентов вам известны: это кнопки, метки, строки редакторов и т. д.

Существует еще и взгляд изнутри, т. е. взгляд из программы на языке Object Pascal. С этой точки зрения компоненты — это классы, порожденные прямо или косвенно от класса TComponent и имеющие опубликованные (published) свойства. Экземпляры компонентов — это объекты этих классов, существующие в качестве полей формы. Среди опубликованных свойств компонентов обязательно присутствует имя (Name), под которым экземпляр компонента представляется в Инспекторе Объектов.

Объединение этих двух точек зрения дает цельное представление о том, что такое компоненты. При работе с компонентами из визуальной среды вы всегда видите их лицевую сторону. Однако как только вы начинаете писать обработчики событий и управлять компонентами программно, вы соприкасаетесь с программной стороной компонентов, суть которой — объекты. Таким образом, Delphi обеспечивает симбиоз визуального и объектно-ориентированного программирования.

При анализе структуры компонента обнаруживается, что его природа троична и лучше всего описывается формулой:

Компонент =состояние (свойства)+ действия (методы)+ обратные связи (события) Состояние компонента описывается его свойствами. Свойства — это атрибуты компонента, которые определяют, как компонент отображается на экране и как функционирует. Свойства бывают изменяемые (для чтения и записи) и неизменяемые (только для чтения). В зависимости от времени установки свойства подразделяются на свойства времени проектирования (design time) и свойства времени выполнения (run-time). Первые устанавливаются для каждого компонента в Инспекторе Объектов и определяют начальное состояние компонента. Во время выполнения приложения эти свойства могут быть изменены операторами программы, соответственно изменится вид и поведение компонента. Вторая группа — это свойства, которые не отражены в окне Инспектора Объектов и управлять которыми можно только из программы. С точки зрения языка Object Pascal суть различия между свойствами времени проектирования и свойствами времени выполнения совсем проста — первые объявлены в своем классе в секции published, а вторые — в секции public.

Действия, выполняемые компонентом, — это его методы. Вызовы методов компонента помещаются в исходный код программы и происходят только во время выполнения приложения. Методы не имеют под собой визуальной основы.

Обратные связи компонента — это его события. События обеспечивают интерактивность компонентов, благодаря им приложение на Delphi строится как программный автомат. В Object Pascal нет специальных языковых средств для представления событий, да они и не нужны, поскольку события реализуются с помощью свойств, содержащих указатели на методы.

Все множество компонентов подразделяется на две группы: визуальные и невизуальные компоненты.

Визуальные компоненты (visual components) — это управляющие элементы пользовательского интерфейса (controls), т. е. кнопки, метки, блоки списков и др. Они видны на экране и выглядят одинаково на стадии проектирования и во время работы приложения. В этом их главное достоинство.

Невизуальные компоненты (nonvisual components) — это, так сказать, бойцы невидимого фронта, они работают, но сами на экране не видны. К невизуальным компонентам относятся таймер, компоненты доступа к базам данным и др. На стадии проектирования невизуальный компонент представляется на форме небольшим значком. Его свойства устанавливаются в Инспекторе Объектов. Некоторые компоненты хотя и являются невизуальными, могут что-нибудь отображать на экране. Например, невизуальный компонент MainMenu отображает на форме строку главного меню, а невизуальный компонент OpenDialog — стандартное диалоговое окно выбора файла.

Для изучения компонентов Delphi используется большое количество книг, например: книга Фараонова и Культина.

1. Постановка задачи

Задача курсового проекта — должна включать разработать электронный учебник «Визуальные и не визуальные компоненты Delphi», позволяющий получить теоретические навыки, освоить программу на примерах и пройти тестирование.

Электронный учебник состоит из следующих разделов:

— теоретическая часть: включает в себя материал, необходимый для освоения некоторых компонентов Delphi;

— эмуляция, которая позволяет на наглядных примерах изучить возможности программы. Эмуляция включает два примера работы.

К программе нужно оформить пояснительную записку, включающую в себя описание программы, обоснование данной темы, а так же разделы теория и практика, содержащие HTML документы и раздел эмуляция.

Требования к программе:

— в программе необходимо использовать дополнительные компоненты из библиотеки скинов Alphaskins (sbutton, slable, sTreeView, и другие);

— для улучшения чтения информации предусмотреть размещение компонента Webbrowser с отображением HTML — файлов;

В качестве основного языка программирования использовать Delphi. Для представления теоретического и практического материала использовалась программа из пакета MS Office — FrontPage2007.

2. Вычислительная система

2.1 Программные средства

Заданием по курсовому проекту было разработать программу на языке программирования Delphi. Программа рассматривалась в рамках изучения курса «Технология разработки программного продукта».

Программу можно реализовать с использованием различных программных средств, например c помощью языка HTML можно создавать и обрабатывать формы, управлять шрифтами, отображать информацию в виде таблиц. HTML является языком браузера. HTML — это язык, предназначенный для разметки Web страниц на которых предоставляеться инвормация в Internet.

Для реализации тестирования существуют свои компоненты. Основное достоинство создания учебника в html — это отсутствие необходимости подгона размеров страниц под разрешение экрана. Минусом является небольшой выбор компонентов;

В программе будут использоваться следующие основные компоненты: sButton, sGroupBox, sEdit, MediaPlayer, image, sTreeView, Timer, WebBrowser, sPanel, sSpeedButton, sMemo, MainMenu .

Для лучшего оформления интерфейса использовалась библиотека скинов Alphaskins.

2.2 Технические средства

Для тестирования можно использовать две формы построения, это:

— открытая форма, когда по условию задания пользователь должен дать произвольный ответ на вопрос;

— закрытая форма, когда пользователю предлагается на выбор несколько вариантов ответов.

Отличие этих форм заключается в использование различных компонентов в среде Delphi. Выбор типа и вида тестового задания определяется, прежде всего, целями, в соответствии с которыми проводится тестирование, характером материала, усвоение которого необходимо выявить, возрастными особенностями испытуемых. Немаловажное значение играет ресурсное обеспечение, а также запас времени, которым располагает разработчик.

Виды тестирования:

— множественный выбор — пользователю необходимо выбрать один или несколько правильных ответов из приведенного списка;

— альтернативный выбор — пользователь должен ответить «да» или «нет»;

— установление соответствия — пользователю предлагается установить соответствие элементов двух списков;

— выбор картинок — пользователь должен выбрать одну из нескольких изображений;

— свободное изложение — пользователь должен самостоятельно дать ответ на оставленный вопрос (нет не каких вариантов ответа);

— дополнение — пользователь должен сформулировать ответы с учетом предусмотренных в задании ограничений.

В курсовом проекте используется стандартное тестирование. В нем пользователю предлагается выбрать один из четырёх ответов.

При окончании прохождения теста пользователю выводиться оценка. При выборе правильного ответа в sGroupBox переменная целого типа увеличивается на единицу. При нажатия на кнопку «далее» происходит смена вопроса и значения в sGroupBox. Тестирование реализуется с помощью оператора условного перехода IF.

Минимальные системные требования подобраны для Windows XP. Для нормальной работы программы на жёстком диске необходимо 750 МБ свободного пространства. Для программного продукта необходимо 128 МБ ОЗУ, потому что в программе содержится большое количество графических изображений и текстовых документов. Поскольку в программе присутствуют графические файлы, то необходима видеокарта с размером ОЗУ 32 МБ

2.3 Аппаратно — программный комплекс

Минимальные системные требования:

— IntelPentiumIV33 МГц и выше;

— Microsoft Windows 98, 2000, XP, Windows Vista, Windows 7;

— 64 МБ ОЗУ (рекомендуется 128 МБ);

— 750 МБ места на жестком диске;

— монитор;

— мышь, клавиатура.

3. Алгоритм задачи

3.1 Вызов и загрузка

Инсталляция программы, инсталляция с дистрибутива, происходит в каталог C: Program FilesShamilIntertaimenDbpefkmyst и не визуальные компоненты Delphi. Путь можно изменить в процессе инсталяции. Исполняемым файлом программы является файл Project.exe. При инсталляции программы создается программная группа «Project.exe» в меню «Пуск».

Шаги установки программы:

1) Запустить установочный файл (Setup.exe).Запускается окно мастера установки программы.

2) В строке «КАТАЛОГ УСТАНОВКИ» указать путь, куда будет устанавливаться программа.

3) Проверка информации установки.

4) Далее появится окно установки.

5) Окно завершения установки.

Установочный файл разработан с помощью программы Small Install Maker версии 5.02.

3.2 Интерфейс пользователя

Основные требования к организации интерфейса:

- Простота. Пользователь должен быстро понимать работу программы. Большое количество графики и элементов, требующих больших объемов машинной памяти, может привести к «зависанию» компьютеров пользователей.

- Гибкость. Программа должна иметь не менее одного перехода на другие формы.

- Стандартизация. Все модули должны выглядеть и восприниматься одинаково. После просмотра нескольких окон обучаемые Переходить на любые другие формы рефлексорно, не думая, на что нужно нажать, чтобы перейти к следующей странице.

Меню программы представляет собой главную форму со структурой:

- ТЕОРИЯ;

- ЭМУЛЯЦИЯ;

- О ПРОГРАММЕ;

- ТЕСТИРОВАНИЕ;

- СПРАВКА;

- ВИДЕО;

При выборе пункта главного меню закрывается основная форма и запускается форма согласно выбранному действию.

При выборе пункта «Теория» становится активной форма, на которой расположены TreeView, Webbrowser. Пункты TreeView Содержат ссылки на Html-документы, находящиеся в папке stranici и открывающиеся в WebBrowser.

При выборе пункта «Эмуляция» открывается форма с изображениями, которые показывают работу компонентов в программе Delphi.

3.3 Система помощи

Система помощи организованна в виде формы, содержащая краткую информацию о программе, разработчике. Также система помощи имеется в виде всплывающих подсказок и дополнительных подсказок в разделе эмуляция.

Загрузка справки начинается с главной формы. Всплывающие подсказки доступны как на главной форме, так и в других разделах.

электронный учебник delphi

3.4 Логическая структура

Разработанная программа позволяет следить за действиями пользователя.

При запуске программы активируется форма заставки. При выборе действия (продолжить работу с программой? Да/Нет), запускается главная форма, на которой присутствуют пункты:

— ТЕОРИЯ;

— ЭМУЛЯЦИЯ;

— ТЕСТИРОВАНИЕ;

— ВИДЕО;

Так же организовано верхнее меню состоящая из семи подпунктов:

— ТЕОРИЯ;

— ЭМУЛЯЦИЯ;

— ТЕСТИРОВАНИЕ;

— СПРАВКА;

— О ПРОГРАММЕ;

— ВИДЕО;

— ВЫХОД.

При выборе любого пункта, находящегося в главном меню закрывается основная форма и происходит запуск формы, соответствующей выбранному действию.

При выборе пункта ТЕОРИЯ становится активной форма, на которой расположены TreeView, Webbrowser. Пункты TreeView Содержат ссылки на Html-документы, находящиеся в папке теория и открывающиеся в WebBrowser.

При выборе пункта ЭМУЛЯЦИЯ открывается форма с изображениями, которые показывают работу в программе Erwin.

При выборе пункта ВИДЕО появляется новая форма где расположены кнопки выбора нужного видео и медиа плеер, позволяющий воспроизводить данные видео.

При выборе пункта ТЕСТИРОВАНИЕ открывается новая форма, где расположены ответы и вопросы. Пользователю предлагается ответить на них.

Пункт верхнего меню ТЕОРИЯ позволяет переходить на ту же форму, что и пункт основного меню главной формы.

Пункт верхнего меню ВИДЕО позволяет переходить на ту же форму, что и пункт основного меню главной формы.

Пункт верхнего меню ТЕСТИРОВАНИЕ позволяет переходить на ту же форму, что и пункт основного меню главной формы.

Пункт верхнего меню ЭМУЛЯЦИЯ позволяет переходить на ту же форму, что и пункт основного меню главной формы.

Пункт верхнего меню справка вызывает две дополнительные формы:

— О ПРОГРАММЕ. Содержит краткую информацию о разработанной программе;

— СПРАВКА. Предоставляет информацию о создателе программы.

Пункт верхнего меню ВЫХОД закрывает программу.

3.5 Физическая структура

Программа состоит из восьми модулей (Таблица 1):

Таблица 1 — Модули программы

4. Описание программы

После запуска exe-файла на экране появляется заставка программы, которая по выбору действия либо сменяется главной формой либо завершается.

Раздел Теория представляет собой компонент TreeView, содержащий ссылки на html-файл, открывающийся в WebBrowser.

Раздел Видео представляет собой форму, на которой расположены кнопки, позволяющие воспроизводить видео.

Раздел Эмуляция включает в себя 10 картинок с компонентами Delphi, которые позволяют создать имитацию работы программы Delphi.

Подраздел Тестирование вызывается из главного меню, содержит в себе пять тестов по программе Delphi.

5. Применение программы

Разработанная программа не требует установки на компьютер. Программу можно запустить с СD-диска, либо скопировать папку «компоненты delphi».

Запустить программу можно файлом project1.exe.

На все формы программы, кроме справочной информации можно попасть с любой формы при помощи верхнего меню.

На формы О ПРОГРАММЕ и СПРАВКА можно попасть только из главного меню.

6. Тестирование и отладка

При разработке программы были выявлены и исправлены ошибки. В основном ошибки были в проблеме воспроизведения видео, а так же в эмуляции. Так же были синтаксические ошибки и ошибки при подсчете результата тестирования.

На тестирование и отладку ушло 40% времени от общего времени разработки программного продукта.

Основные ошибки при тестирование программы представлены в Таблице 2

Таблица 2 — Основные ошибки

Заключение

В ходе курсового проекта был разработан Электронный учебник «визуальные и невизуальные компоненты Delphi»

В процессе создания программы использовались приложения:

— Delphi 7;

— Microsoft Office FrontPage 2003;

— Microsoft Office Word 2007;

— Photoshop CS5;

Разработанная программа обладает следующими свойствами:

— предоставляет теоретический материал по использованию компонентов в Delphi;

— содержит видеоуроки;

— позволяет проверить свои знания в виде тестирования;

— наглядно демонстрирует работу с компонентами Delphi .

Выполнены требования, поставленные перед разработкой:

— в программе использовалось большое количество различных компонентов;

— реализовано подключение HTML файлов;

— имитация работы в программе Delphi реализована в разделе Эмуляция.

1. Фаронов В. В. «Программирование баз данных в Delphi 6». — СПб.:, 2003. 520 с.

2. Культин Н. Б. «Основы программирования в Delphi 7». — СПб.: БХВ Петербург, 2004. 597 с.

Приложение, А Текст программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, ComCtrls, acProgressBar, jpeg, sSkinManager,

sSkinProvider, Buttons, sSpeedButton, StdCtrls;

type

TForm1 = class (TForm)

sknprvdr1: TsSkinProvider;

sknmngr1: TsSkinManager;

img1: TImage;

btn1: TsSpeedButton;

btn2: TsSpeedButton;

lbl1: TLabel;

lbl2: TLabel;

procedure btn2Click (Sender: TObject);

procedure btn1Click (Sender: TObject);

procedure btn1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure btn1MouseLeave (Sender: TObject);

procedure lbl1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure img1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure btn2MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure btn2MouseLeave (Sender: TObject);

procedure lbl2MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses

Unit2, Unit5, Unit8;

{$R *.dfm}

procedure TForm1. btn2Click (Sender: TObject);

begin

Close;

end;

procedure TForm1. btn1Click (Sender: TObject);

begin

form1.Hide;

Form2.Show;

end;

procedure TForm1. btn1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

lbl1.Visible:=True;

end;

procedure TForm1. btn1MouseLeave (Sender: TObject);

begin

lbl1.Visible:=False;

end;

procedure TForm1. lbl1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

lbl1.Visible:=False;

lbl2.Visible:=False;

end;

procedure TForm1. img1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

lbl1.Visible:=False;

lbl2.Visible:=False;

end;

procedure TForm1. btn2MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

lbl2.Visible:=True;

end;

procedure TForm1. btn2MouseLeave (Sender: TObject);

begin

lbl2.Visible:=False;

end;

procedure TForm1. lbl2MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

lbl2.Visible:=False;

lbl1.Visible:=False;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, jpeg, ExtCtrls, acPNG, XPMan, StdCtrls, Buttons, sBitBtn;

type

TForm2 = class (TForm)

mm1: TMainMenu;

C1: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

img1: TImage;

img2: TImage;

img3: TImage;

img4: TImage;

img5: TImage;

img6: TImage;

img7: TImage;

N5: TMenuItem;

N6: TMenuItem;

img8: TImage;

img9: TImage;

N7: TMenuItem;

dlgOpen1: TOpenDialog;

sbtbtn1: TsBitBtn;

N8: TMenuItem;

img10: TImage;

img11: TImage;

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure N4Click (Sender: TObject);

procedure img2MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure img1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure img3MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure img4MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure FormCreate (Sender: TObject);

procedure img7Click (Sender: TObject);

procedure img6Click (Sender: TObject);

procedure img5Click (Sender: TObject);

procedure N1Click (Sender: TObject);

procedure N5Click (Sender: TObject);

procedure FormHide (Sender: TObject);

procedure N6Click (Sender: TObject);

procedure img8MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure img9Click (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure sbtbtn1Click (Sender: TObject);

procedure img10MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure N8Click (Sender: TObject);

procedure img11Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses

Unit1, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;

{$R *.dfm}

procedure TForm2. FormClose (Sender: TObject; var Action: TCloseAction);

begin

Form1.Close;

end;

procedure TForm2. N4Click (Sender: TObject);

begin

if messagedlg ('Вы действительно хотите выйти?', mtConfirmation, mbOKCancel, 0)=1 then

close

else

exit;

end;

procedure TForm2. img2MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

img5.Visible:=True;

img6.Visible:=false;

img7.Visible:=false;

img2.Visible:=False;

img9.Visible:=false;

img8.Visible:=True;

img3.Visible:=true;

img4.Visible:=true;

img10.Visible:=true;

img11.Visible:=false;

end;

procedure TForm2. img1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

img5.Visible:=false;

img6.Visible:=false;

img7.Visible:=false;

img9.Visible:=False;

img2.Visible:=true;

img8.Visible:=True;

img3.Visible:=true;

img4.Visible:=true;

img10.Visible:=true;

img11.Visible:=false;

end;

procedure TForm2. img3MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

img5.Visible:=false;

img6.Visible:=True;

img7.Visible:=false;

img2.Visible:=true;

img3.Visible:=False;

img4.Visible:=true;

img9.Visible:=false;

img8.Visible:=True;

img10.Visible:=true;

img11.Visible:=false;

end;

procedure TForm2. img4MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

img5.Visible:=false;

img7.Visible:=True;

img6.Visible:=false;

img2.Visible:=true;

img3.Visible:=true;

img4.Visible:=False;

img9.Visible:=false;

img8.Visible:=True;

img10.Visible:=true;

img11.Visible:=false;

end;

procedure TForm2. FormCreate (Sender: TObject);

begin

img5.Top:=img2.top;

img5.Left:=img2.Left;

img6.Top:=img3.top;

img6.Left:=img3.Left;

img7.Top:=img4.top;

img7.Left:=img4.Left;

end;

procedure TForm2. img7Click (Sender: TObject);

begin

if messagedlg ('Вы действительно хотите выйти?', mtConfirmation, mbOKCancel, 0)=1 then

close

else

exit;

end;

procedure TForm2. img6Click (Sender: TObject);

begin

form2.Hide;

form3.show;

end;

procedure TForm2. img5Click (Sender: TObject);

begin

form2.Hide;

form4.show;

end;

procedure TForm2. N1Click (Sender: TObject);

begin

form2.Hide;

form4.show;

end;

procedure TForm2. N5Click (Sender: TObject);

begin

form2.Hide;

form3.show;

end;

procedure TForm2. FormHide (Sender: TObject);

begin

img5.Visible:=False;

img6.Visible:=False;

img7.Visible:=False;

img9.Visible:=false;

img8.Visible:=True;

img2.Visible:=True;

img3.Visible:=True;

img4.Visible:=True;

end;

procedure TForm2. N6Click (Sender: TObject);

begin

form5.Show;

form2.Hide;

end;

procedure TForm2. img8MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

img8.Visible:=False;

img9.Visible:=True;

img2.Visible:=True;

img3.Visible:=True;

img4.Visible:=True;

img5.Visible:=False;

img6.Visible:=False;

img7.Visible:=False;

img10.Visible:=true;

img11.Visible:=false;

end;

procedure TForm2. img9Click (Sender: TObject);

begin

form5.Show;

form2.Hide;

end;

procedure TForm2. N7Click (Sender: TObject);

begin

form5.Show;

form2.Hide;

end;

procedure TForm2. N3Click (Sender: TObject);

begin

spravka.show;

end;

procedure TForm2. N2Click (Sender: TObject);

begin

Prog.show;

end;

procedure TForm2. sbtbtn1Click (Sender: TObject);

begin

if dlgOpen1. Execute then

img1.Picture.LoadFromFile (dlgOpen1.FileName);

end;

procedure TForm2. img10MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

img11.Visible:=True;

img10.Visible:=False;

img8.Visible:=true;

img9.Visible:=false;

img2.Visible:=True;

img3.Visible:=True;

img4.Visible:=True;

img5.Visible:=False;

img6.Visible:=False;

img7.Visible:=False;

end;

procedure TForm2. N8Click (Sender: TObject);

begin

test.Show;

form2.Hide;

end;

procedure TForm2. img11Click (Sender: TObject);

begin

test.Show;

form2.Hide;

end;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, sTreeView, OleCtrls, SHDocVw, StdCtrls, sButton, Menus;

type

TForm3 = class (TForm)

WebBrowser1: TWebBrowser;

sTreeView1: TsTreeView;

sButton1: TsButton;

sButton2: TsButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure sTreeView1DblClick (Sender: TObject);

procedure sButton1Click (Sender: TObject);

procedure sButton2Click (Sender: TObject);

procedure N1Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure N4Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit2, Unit1, Unit4, Unit5, Unit8;

{$R *.dfm}

procedure TForm3. FormClose (Sender: TObject; var Action: TCloseAction);

begin

form1.Close;

end;

procedure TForm3. sTreeView1DblClick (Sender: TObject);

begin

if streeview1.Items.Item[1]. Selected then webbrowser1. Navigate (GetCurrentDir+'страницыбиблиотека VCLbiblvcl. htm');

if streeview1.Items.Item[2]. Selected then webbrowser1. Navigate (GetCurrentDir+'страницыбиблиотека VCLklastcomp. htm');

if streeview1.Items.Item[4]. Selected then webbrowser1. Navigate (GetCurrentDir+'страницыбиблиотека VCLsvvavkomp. htm');

if streeview1.Items.Item[5]. Selected then webbrowser1. Navigate (GetCurrentDir+'страницыбиблиотека VCLsobitiya. htm');

if streeview1.Items.Item[3]. Selected then webbrowser1. Navigate (GetCurrentDir+'страницыбиблиотека VCLmetodi. htm');

if streeview1.Items.Item[6]. Selected then webbrowser1. Navigate (GetCurrentDir+'страницыбиблиотека VCLtipymetod. htm');

if streeview1.Items.Item[8]. Selected then webbrowser1. Navigate (GetCurrentDir+'страницысоздание визуальных компонентproverka. htm');

if streeview1.Items.Item[9]. Selected then webbrowser1. Navigate (GetCurrentDir+'страницысоздание визуальных компонентisxkod. htm');

if streeview1.Items.Item[10]. Selected then webbrowser1. Navigate (GetCurrentDir+'страницысоздание визуальных компонентrealiz. htm');

if streeview1.Items.Item[12]. Selected then webbrowser1. Navigate (GetCurrentDir+'страницыстандартные компонентыelemypr. htm');

if streeview1.Items.Item[13]. Selected then webbrowser1. Navigate (GetCurrentDir+'страницыстандартные компонентыadditional. htm');

if streeview1.Items.Item[14]. Selected then webbrowser1. Navigate (GetCurrentDir+'страницыстандартные компонентыintfakt. htm');

if streeview1.Items.Item[16]. Selected then webbrowser1. Navigate (GetCurrentDir+'страницыСоздание не визуальных компонентdialog. htm');

if streeview1.Items.Item[17]. Selected then webbrowser1. Navigate (GetCurrentDir+'страницыСоздание не визуальных компонентmainform. htm');

if streeview1.Items.Item[18]. Selected then webbrowser1. Navigate (GetCurrentDir+'страницыСоздание не визуальных компонентnevkomp. htm');

end;

procedure TForm3. sButton1Click (Sender: TObject);

begin

form2.show;

form3.Hide;

end;

procedure TForm3. sButton2Click (Sender: TObject);

begin

if messagedlg ('Вы действительно хотите выйти?', mtConfirmation, mbOKCancel, 0)=1 then

close

else

exit;

end;

procedure TForm3. N1Click (Sender: TObject);

begin

form3.Hide;

form2.show;

end;

procedure TForm3. N2Click (Sender: TObject);

begin

form3.Hide;

form4.show;

end;

procedure TForm3. N3Click (Sender: TObject);

begin

if messagedlg ('Вы действительно хотите выйти?', mtConfirmation, mbOKCancel, 0)=1 then

close

else

exit;

end;

procedure TForm3. N4Click (Sender: TObject);

begin

Form3.Hide;

test.Show;

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, jpeg, ExtCtrls, StdCtrls, Buttons, sBitBtn, acPNG, sPanel;

type

TForm4 = class (TForm)

MainMenu1: TMainMenu;

N3: TMenuItem;

N4: TMenuItem;

N1: TMenuItem;

sbtbtn2: TsBitBtn;

img1: TImage;

spnl1: TsPanel;

img2: TImage;

img3: TImage;

img4: TImage;

img5: TImage;

img6: TImage;

img7: TImage;

edt1: TEdit;

img8: TImage;

img9: TImage;

img10: TImage;

edt2: TEdit;

img11: TImage;

img12: TImage;

img13: TImage;

edt3: TEdit;

img14: TImage;

img15: TImage;

img16: TImage;

img17: TImage;

img18: TImage;

edt4: TEdit;

img19: TImage;

img20: TImage;

img21: TImage;

img22: TImage;

img23: TImage;

edt5: TEdit;

img24: TImage;

img25: TImage;

img26: TImage;

sbtbtn3: TsBitBtn;

sbtbtn4: TsBitBtn;

spnl2: TsPanel;

pimg1: TImage;

pimg2: TImage;

pimg3: TImage;

pimg4: TImage;

pimg5: TImage;

pimg6: TImage;

pimg7: TImage;

pimg8: TImage;

pimg9: TImage;

pimg10: TImage;

pimg11: TImage;

pimg12: TImage;

pimg13: TImage;

edt6: TEdit;

pimg14: TImage;

pimg15: TImage;

pimg16: TImage;

pimg17: TImage;

pimg18: TImage;

pimg19: TImage;

mmo1: TMemo;

pimg20: TImage;

pimg21: TImage;

pimg22: TImage;

mmo2: TMemo;

pimg23: TImage;

pimg24: TImage;

pimg25: TImage;

edt7: TEdit;

pimg26: TImage;

pimg27: TImage;

pimg28: TImage;

pimg29: TImage;

pimg30: TImage;

N2: TMenuItem;

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure N4Click (Sender: TObject);

procedure N1Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure sbtbtn2Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure img2Click (Sender: TObject);

procedure img3Click (Sender: TObject);

procedure img5Click (Sender: TObject);

procedure img6Click (Sender: TObject);

procedure edt1KeyDown (Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure img7Click (Sender: TObject);

procedure img9DblClick (Sender: TObject);

procedure edt2KeyDown (Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure img11Click (Sender: TObject);

procedure FormShow (Sender: TObject);

procedure FormHide (Sender: TObject);

procedure img10Click (Sender: TObject);

procedure img12Click (Sender: TObject);

procedure edt3KeyDown (Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure img13Click (Sender: TObject);

procedure img15Click (Sender: TObject);

procedure img17DblClick (Sender: TObject);

procedure img18Click (Sender: TObject);

procedure edt4KeyDown (Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure img19Click (Sender: TObject);

procedure img21Click (Sender: TObject);

procedure img23Click (Sender: TObject);

procedure img25Click (Sender: TObject);

procedure img26Click (Sender: TObject);

procedure img16Click (Sender: TObject);

procedure sbtbtn3Click (Sender: TObject);

procedure sbtbtn4Click (Sender: TObject);

procedure pimg2Click (Sender: TObject);

procedure pimg4Click (Sender: TObject);

procedure pimg5Click (Sender: TObject);

procedure pimg7Click (Sender: TObject);

procedure pimg9Click (Sender: TObject);

procedure pimg10Click (Sender: TObject);

procedure pimg12Click (Sender: TObject);

procedure edt6KeyPress (Sender: TObject; var Key: Char);

procedure pimg13Click (Sender: TObject);

procedure pimg15Click (Sender: TObject);

procedure pimg16Click (Sender: TObject);

procedure pimg18DblClick (Sender: TObject);

procedure mmo1KeyPress (Sender: TObject; var Key: Char);

procedure pimg19Click (Sender: TObject);

procedure pimg21Click (Sender: TObject);

procedure mmo2KeyPress (Sender: TObject; var Key: Char);

procedure pimg22Click (Sender: TObject);

procedure pimg24Click (Sender: TObject);

procedure pimg26Click (Sender: TObject);

procedure pimg28Click (Sender: TObject);

procedure FormKeyPress (Sender: TObject; var Key: Char);

procedure pimg30Click (Sender: TObject);

procedure N2Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

k, q, p, m: Integer;

implementation

uses Unit2, Unit3, Unit1, Unit8;

{$R *.dfm}

procedure TForm4. FormClose (Sender: TObject; var Action: TCloseAction);

begin

form1.close;

end;

procedure TForm4. N4Click (Sender: TObject);

begin

if messagedlg ('Вы действительно хотите выйти?', mtConfirmation, mbOKCancel, 0)=1 then

close

else

exit;

end;

procedure TForm4. N1Click (Sender: TObject);

begin

form4.Hide;

form2.show;

img2.Visible:=False;

img3.Visible:=False;

img4.Visible:=False;

img5.Visible:=False;

img6.Visible:=False;

img7.Visible:=False;

img8.Visible:=False;

img9.Visible:=False;

img10.Visible:=False;

img11.Visible:=False;

edt1.Visible:=False;

edt2.Visible:=False;

sbtbtn3.Visible:=True;

sbtbtn4.Visible:=True;

end;

procedure TForm4. N3Click (Sender: TObject);

begin

form4.Hide;

form3.show;

img2.Visible:=False;

img3.Visible:=False;

img4.Visible:=False;

img5.Visible:=False;

img6.Visible:=False;

img7.Visible:=False;

img8.Visible:=False;

img9.Visible:=False;

img10.Visible:=False;

img11.Visible:=False;

edt1.Visible:=False;

edt2.Visible:=False;

sbtbtn3.Visible:=True;

sbtbtn4.Visible:=True;

end;

procedure TForm4. sbtbtn2Click (Sender: TObject);

begin

form4.Hide;

form2.show;

img2.Visible:=False;

img3.Visible:=False;

img4.Visible:=False;

img5.Visible:=False;

img6.Visible:=False;

img7.Visible:=False;

img8.Visible:=False;

img9.Visible:=False;

img10.Visible:=False;

img11.Visible:=False;

edt1.Visible:=False;

edt2.Visible:=False;

sbtbtn3.Visible:=True;

sbtbtn4.Visible:=True;

end;

procedure TForm4. FormCreate (Sender: TObject);

begin

if edt1. Text='' then q:=q+1;

edt1.Left:=90;

edt1.Top:=476;

img1.Top:=-8;

img1.Left:=0;

img1.Width:=1024;

img8.Height:=768;

img8.Top:=-8;

img8.Left:=0;

img8.Width:=1024;

img8.Height:=768;

img7.Top:=-8;

img7.Left:=0;

img7.Width:=1024;

img7.Height:=768;

img4.Top:=-8;

img4.Left:=0;

img4.Width:=1024;

img4.Height:=768;

img10.Top:=-8;

img10.Left:=0;

img10.Width:=1024;

img10.Height:=768;

img13.Top:=-8;

img13.Left:=0;

img13.Width:=1024;

img13.Height:=768;

img14.Top:=-8;

img14.Left:=0;

img14.Width:=1024;

img14.Height:=768;

img16.Top:=-8;

img16.Left:=0;

img16.Width:=1024;

img16.Height:=768;

img18.Top:=-8;

img18.Left:=0;

img18.Width:=1024;

img18.Height:=768;

img20.Top:=-8;

img20.Left:=0;

img20.Width:=1024;

img20.Height:=768;

img22.Top:=-8;

img22.Left:=0;

img22.Width:=1024;

img22.Height:=768;

img24.Top:=-8;

img24.Left:=0;

img24.Width:=1024;

img24.Height:=768;

img26.Top:=-8;

img26.Left:=0;

img26.Width:=1024;

img26.Height:=768;

edt2.top:=250;

edt4.top:=250;

edt4.left:=380;

k:=0;

p:=0;

end;

procedure TForm4. img2Click (Sender: TObject);

begin

k:=1;

end;

procedure TForm4. img3Click (Sender: TObject);

begin

if k=1 then

begin

img4.Visible:=True;

img5.Visible:=True;

spnl1.Caption:='Поставьте около компонента Edit кнопку это компонент Button на вкладке Standart';

end;

end;

procedure TForm4. img5Click (Sender: TObject);

begin

k:=2;

img6.Visible:=True;

end;

procedure TForm4. img6Click (Sender: TObject);

begin

if k=2 then

begin

edt1.Visible:=True;

img7.Visible:=True;

spnl1.Caption:='Поменяйте название кнопки в свойстве Caption в окне инспектора обьектов (Object Inspector) на Имя';

end;

end;

procedure TForm4. edt1KeyDown (Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if Key=13 then

begin

if (edt1.Text='Имя')or (edt1.Text='имя') then

Begin

img8.Visible:=True;

edt1.Visible:=False;

spnl1.Caption:='Щёлкните по кнопке 2 раза';

img9.Visible:=True;

end

else

q:=q+1

end;

end;

procedure TForm4. img7Click (Sender: TObject);

begin

if (edt1.Text='Имя')or (edt1.Text='имя') then

Begin

img8.Visible:=True;

edt1.Visible:=False;

spnl1.Caption:='Щёлкните по кнопке 2 раза';

img9.Visible:=True;

end;

end;

procedure TForm4. img9DblClick (Sender: TObject);

begin

img10.Visible:=True;

img9.Visible:=False;

edt2.visible:=True;

spnl1.Caption:='Напишите в обработчике событий: Form1. Caption:=Edit1.Text;'

end;

procedure TForm4. edt2KeyDown (Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if Key=13 then

begin

if (Edt2.Text='Form1.Caption:=Edit1.Text;')or (Edt2.Text='form1.caption:=edit1.text;') then

Begin

img11.Visible:=True;

img12.Visible:=True;

edt2.Visible:=False;

spnl1.Caption:='Поставтье на форму ещё 1 кнопку';

end

else

q:=q+1;

end;

end;

procedure TForm4. img11Click (Sender: TObject);

begin

k:=3;

img11.Visible:=False;

end;

procedure TForm4. FormShow (Sender: TObject);

begin

sbtbtn4.Visible:=True;

sbtbtn3.Visible:=True;

sbtbtn2.Visible:=True;

pimg2.Visible:=true;

form4.Width:=500;

form4.Height:=250;

end;

procedure TForm4. FormHide (Sender: TObject);

begin

form4.Height:=250;

form4.Width:=500;

p:=0;

img1.Visible:=False;

img2.Visible:=False;

img3.Visible:=False;

img4.Visible:=False;

img5.Visible:=False;

img6.Visible:=False;

img7.Visible:=False;

img8.Visible:=False;

img9.Visible:=False;

img10.Visible:=False;

img11.Visible:=False;

img13.Visible:=False;

img19.Visible:=False;

img14.Visible:=False;

edt1.Visible:=False;

edt2.Visible:=False;

edt3.Visible:=False;

edt4.Visible:=False;

edt5.Visible:=False;

k:=0;

spnl1.Caption:='';

spnl1.Visible:=False;

edt1.Text:='';

edt2.Text:='';

edt3.Text:='';

edt4.Text:='';

edt5.Text:='';

img15.Visible:=False;

img16.Visible:=False;

img17.Visible:=False;

img18.Visible:=false;

img19.Visible:=False;

img20.Visible:=False;

img21.Visible:=False;

img22.Visible:=False;

img24.Visible:=False;

img25.Visible:=False;

img26.Visible:=False;

pimg3.Visible:=False;

pimg4.Visible:=False;

pimg5.Visible:=False;

pimg6.Visible:=False;

q:=0;

pimg7.Visible:=False;

pimg8.Visible:=False;

pimg9.Visible:=False;

pimg10.Visible:=False;

pimg11.Visible:=False;

pimg12.Visible:=False;

pimg13.Visible:=False;

pimg14.Visible:=False;

pimg15.Visible:=False;

pimg16.Visible:=False;

pimg17.Visible:=False;

pimg18.Visible:=False;

pimg19.Visible:=False;

pimg20.Visible:=False;

pimg21.Visible:=False;

pimg22.Visible:=False;

mmo1.Visible:=False;

mmo2.Visible:=False;

mmo1.Text:='';

mmo2.Text:='';

edt6.Visible:=False;

edt6.Text:='';

spnl2.Visible:=False;

form1.Height:=627;

Form1.Width:=1012;

end;

procedure TForm4. img10Click (Sender: TObject);

begin

if (Edt2.Text='Form1.Caption:=Edit1.Text;')or (Edt2.Text='form1.caption:=edit1.text;') then

Begin

img11.Visible:=True;

img12.Visible:=True;

edt2.Visible:=False;

spnl1.Caption:='Поставтье на форму ещё 1 кнопку';

end

else

q:=q+1;

end;

procedure TForm4. img12Click (Sender: TObject);

begin

if k=3 then

begin

img12.Visible:=False;

img13.Visible:=True;

img11.Visible:=true;

edt3.Visible:=True;

spnl1.Caption:='Измените Имя 2 Кнопки на: Выход'

end;

end;

procedure TForm4. edt3KeyDown (Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if Key=13 then

begin

if (Edt3.Text='Выход')or (Edt3.Text='выход') then

Begin

img14.Visible:=True;

img17.Visible:=True;

edt3.Visible:=False;

spnl1.Caption:='Перейдите на вкладку Events';

img15.Visible:=True;

end

else

q:=q+1;

end;

end;

procedure TForm4. img13Click (Sender: TObject);

begin

if (Edt3.Text='Выход')or (Edt3.Text='выход') then

Begin

img14.Visible:=True;

img17.Visible:=True;

edt3.Visible:=False;

spnl1.Caption:='Перейдите на вкладку Events';

img15.Visible:=True;

end

else

q:=q+1;

end;

procedure TForm4. img15Click (Sender: TObject);

begin

Img16.visible:=True;

edt3.Visible:=False;

spnl1.Caption:='Щёлкните по процедуре Onclick 2 раза';

img15.Visible:=False;

end;

procedure TForm4. img17DblClick (Sender: TObject);

begin

img17.Visible:=False;

img18.visible:=False;

edt4.Visible:=True;

spnl1.Caption:='Напишите в обработчик событий следущие строчки: Close;'

end;

procedure TForm4. img18Click (Sender: TObject);

begin

if (Edt4.Text='Close;')or (Edt4.Text='close;') then

Begin

img18.Visible:=True;

img19.Visible:=True;

edt4.Visible:=False;

spnl1.Caption:='Перейдите на вкладку Run';

end

else

q:=q+1;

end;

procedure TForm4. edt4KeyDown (Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if Key=13 then

begin

if (Edt4.Text='Close;')or (Edt4.Text='close;') then

Begin

img18.Visible:=True;

img19.Visible:=True;

edt4.Visible:=False;

spnl1.Caption:='Перейдите на вкладку Run';

end

else

q:=q+1;

end;

end;

procedure TForm4. img19Click (Sender: TObject);

begin

img19.Visible:=False;

img20.Visible:=True;

img21.visible:=True;

spnl1.Caption:='Нажмите на Run на вкладке Run';

end;

procedure TForm4. img21Click (Sender: TObject);

begin

img21.Visible:=False;

img22.visible:=True;

spnl1.Caption:='введите в Edit1 Текст: Моя форма. Нажмите на кнопку имя, и посмотрите на название формы';

img23.Visible:=True;

edt5.Visible:=True;

end;

procedure TForm4. img23Click (Sender: TObject);

begin

if (edt5.Text='Моя форма') or (edt5.Text='моя форма') then

begin

img24.Visible:=True;

img23.Visible:=False;

img25.Visible:=True;

edt5.Visible:=False;

spnl1.Caption:='Теперь нажмите на кнопку Выход';

end

end;

procedure TForm4. img25Click (Sender: TObject);

begin

img25.Visible:=False;

img26.Visible:=True;

k:=0;

spnl1.Caption:='Поздравляем вы научились пользоваться визуальными компонентами делфи такими как Кнопка Поле Edit И Форма Нажмите в любое место.';

end;

procedure TForm4. img26Click (Sender: TObject);

begin

img1.Visible:=False;

img2.Visible:=False;

img3.Visible:=False;

img4.Visible:=False;

img5.Visible:=False;

img6.Visible:=False;

img7.Visible:=False;

img8.Visible:=False;

img9.Visible:=False;

img10.Visible:=False;

img11.Visible:=False;

img12.Visible:=False;

img13.Visible:=False;

img14.Visible:=False;

img15.Visible:=False;

img16.Visible:=False;

img17.Visible:=False;

img18.Visible:=False;

img19.Visible:=False;

img20.Visible:=False;

img21.Visible:=False;

img22.Visible:=False;

img23.Visible:=False;

img24.Visible:=False;

img25.Visible:=False;

img26.Visible:=False;

spnl1.Visible:=False;

edt1.Visible:=False;

edt2.Visible:=False;

edt3.Visible:=False;

edt4.Visible:=False;

edt5.Visible:=False;

sbtbtn2.Visible:=True;

sbtbtn3.Visible:=True;

sbtbtn4.Visible:=True;

form4.Height:=250;

form4.Width:=500;

end;

procedure TForm4. img16Click (Sender: TObject);

begin

if (Edt4.Text='Close;')or (Edt4.Text='close;') then

Begin

img18.Visible:=True;

img19.Visible:=True;

edt4.Visible:=False;

spnl1.Caption:='Перейдите на вкладку Run';

end

else

q:=q+1;

end;

procedure TForm4. sbtbtn3Click (Sender: TObject);

begin

img1.Visible:=True;

img2.Visible:=True;

img3.Visible:=True;

sbtbtn3.Visible:=False;

sbtbtn2.Visible:=False;

spnl1.Visible:=True;

spnl1.Caption:='Поставьте на форму компонент Edit1 из вкладки Standard';

form4.Width:=838;

form4.Height:=752;

sbtbtn4.Visible:=False;

end;

procedure TForm4. sbtbtn4Click (Sender: TObject);

begin

spnl2.Visible:=True;

spnl1.Visible:=True;

spnl1.Caption:='Перейдите на вклвдку Dialogs';

pimg1.Visible:=True;

form4.Height:=627;

form4.Width:=1012;

end;

procedure TForm4. pimg2Click (Sender: TObject);

begin

Pimg3.visible:=True;

pimg4.Visible:=True;

pimg5.Visible:=True;

spnl1.Caption:='Поставте на форму SaveDialog';

end;

procedure TForm4. pimg4Click (Sender: TObject);

begin

q:=2;

end;

procedure TForm4. pimg5Click (Sender: TObject);

begin

if q=2 then

begin

spnl1.Caption:='Перейдите на вкладку standart';

pimg6.Visible:=True;

pimg7.Visible:=True;

pimg2.Visible:=false;

pimg3.Visible:=false;

pimg4.Visible:=false;

pimg5.Visible:=false;

end;

end;

procedure TForm4. pimg7Click (Sender: TObject);

begin

spnl1.Caption:='Поставьте на форму кнопку';

pimg6.Visible:=False;

pimg7.Visible:=False;

pimg8.Visible:=True;

pimg9.Visible:=True;

pimg10.Visible:=True;

end;

procedure TForm4. pimg9Click (Sender: TObject);

begin

q:=3;

end;

procedure TForm4. pimg10Click (Sender: TObject);

begin

if q=3 then

spnl1.Caption:='Переименуйте кнопку в «Сохранить» ';

pimg9.Visible:=False;

pimg10.Visible:=False;

pimg11.Visible:=true;

pimg12.Visible:=true;

end;

procedure TForm4. pimg12Click (Sender: TObject);

begin

pimg10.Visible:=False;

pimg11.Visible:=False;

pimg12.Visible:=False;

pimg13.Visible:=True;

edt6.Visible:=True;

end;

procedure TForm4. edt6KeyPress (Sender: TObject; var Key: Char);

begin

if (edt6.Text='Сохранить')or (edt6.Text='сохранить') then

begin

pimg11.Visible:=False;

pimg12.Visible:=False;

pimg13.Visible:=False;

pimg14.Visible:=true;

pimg15.Visible:=true;

pimg16.Visible:=true;

edt6.Visible:=False;

spnl1.Caption:='Поставьте на вкалдку компонент memo';

end

end;

procedure TForm4. pimg13Click (Sender: TObject);

begin

if (edt6.Text='Сохранить')or (edt6.Text='сохранить') then

begin

pimg11.Visible:=False;

pimg12.Visible:=False;

pimg13.Visible:=False;

pimg14.Visible:=true;

pimg15.Visible:=true;

pimg16.Visible:=true;

edt6.Visible:=False;

spnl1.Caption:='Поставьте на вкалдку компонент memo';

end

end;

procedure TForm4. pimg15Click (Sender: TObject);

begin

q:=4;

end;

procedure TForm4. pimg16Click (Sender: TObject);

begin

if q=4 then

begin

pimg14.Visible:=False;

pimg15.Visible:=False;

pimg16.Visible:=False;

pimg17.Visible:=True;

pimg18.Visible:=True;

spnl1.Caption:='Щёлкнете по кнопке 2 раза';

end;

end;

procedure TForm4. pimg18DblClick (Sender: TObject);

begin

pimg17.Visible:=False;

pimg18.Visible:=False;

pimg19.Visible:=true;

spnl1.Caption:='В появившемся окне напишите следующий код «with SaveDialog1, Memo1 do if Execute then begin Lines. SaveToFile (FileName);Memo1.Lines.SaveToFile (FileName);» ';

mmo1.Visible:=True;

end;

procedure TForm4. mmo1KeyPress (Sender: TObject; var Key: Char);

begin

if mmo1. Text='with SaveDialog1, Memo1 do if Execute then begin Lines. SaveToFile (FileName);Memo1.Lines.SaveToFile (FileName);' then

begin

mmo1.Visible:=False;

pimg17.Visible:=False;

pimg18.Visible:=False;

pimg19.Visible:=False;

pimg20.Visible:=True;

pimg21.Visible:=True;

spnl1.Caption:='Запусите программу щёлкнуш по кнопке Run';

end

end;

procedure TForm4. pimg19Click (Sender: TObject);

begin

if mmo1. Text='with SaveDialog1, Memo1 do if Execute then begin Lines. SaveToFile (FileName);Memo1.Lines.SaveToFile (FileName);' then

begin

mmo1.Visible:=False;

pimg17.Visible:=False;

pimg18.Visible:=False;

pimg19.Visible:=False;

pimg20.Visible:=True;

pimg21.Visible:=True;

spnl1.Caption:='Запусите программу щёлкнуш по кнопке Run';

end

end;

procedure TForm4. pimg21Click (Sender: TObject);

begin

pimg21.Visible:=False;

pimg22.Visible:=True;

pimg21.Visible:=False;

pimg19.Visible:=False;

spnl1.Caption:='Введите в Поле Мемо следующий текст «Моё первое сохранение» ';

mmo2.Visible:=True;

end;

procedure TForm4. mmo2KeyPress (Sender: TObject; var Key: Char);

begin

if (mmo2.Text='Моё первое сохранение')or (mmo2.text='моё первое сохранение')then

begin

mmo2.Visible:=False;

pimg21.Visible:=False;

pimg22.Visible:=False;

pimg23.Visible:=True;

spnl1.Caption:='Нажмите на кнопку сохранить';

pimg24.Visible:=True;

end

end;

procedure TForm4. pimg22Click (Sender: TObject);

begin

if (mmo2.Text='Моё первое сохранение')or (mmo2.text='моё первое сохранение')then

Begin

mmo2.Visible:=False;

pimg21.Visible:=False;

pimg22.Visible:=False;

pimg23.Visible:=True;

spnl1.Caption:='Нажмите на кнопку сохранить';

pimg24.Visible:=True;

end

end;

procedure TForm4. pimg24Click (Sender: TObject);

begin

pimg21.Visible:=False;

pimg22.Visible:=False;

pimg23.Visible:=False;

pimg24.Visible:=False;

pimg25.Visible:=True;

spnl1.Caption:='Введите в поле имя Файла «Сохранение.txt» и нажмите на кнопку сохранить';

edt7.Visible:=True;

end;

procedure TForm4. pimg26Click (Sender: TObject);

begin

if (edt7.text='Сохранение.txt')or (edt7.text='сохранение.txt')then

begin

edt7.Visible:=False;

pimg24.Visible:=false;

pimg25.Visible:=false;

pimg26.Visible:=false;

pimg27.Visible:=True;

pimg28.Visible:=True;

spnl1.Caption:='На рабочем столе появился файл с нашим назвыанием и расширением TXT Щёллкните по нему левой кнопкой мыши';

q:=6;

end

end;

procedure TForm4. pimg28Click (Sender: TObject);

begin

pimg27.Visible:=false;

pimg28.Visible:=false;

pimg29.Visible:=True;

spnl1.Caption:='Теперь нажмите Enter';

end;

procedure TForm4. FormKeyPress (Sender: TObject; var Key: Char);

begin

if (Key in [#13])or (q=6) then

begin

pimg29.Visible:=False;

pimg30.Visible:=True;

spnl1.Caption:='То что мы писали в Мемо поле записалось и в TXT файли теперь вы научились сохранять файлы из мемо поля для продолжение щёлкните мышкой в любое место';

end

end;

procedure TForm4. pimg30Click (Sender: TObject);

begin

sbtbtn2.Visible:=True;

sbtbtn3.Visible:=True;

sbtbtn4.Visible:=True;

edt5.Visible:=False;

edt6.Visible:=False;

edt7.Visible:=False;

mmo1.Visible:=False;

mmo2.Visible:=False;

spnl2.Visible:=False;

pimg5.Visible:=False;

pimg6.Visible:=False;

pimg7.Visible:=False;

pimg8.Visible:=False;

pimg9.Visible:=False;

pimg10.Visible:=False;

pimg11.Visible:=False;

pimg12.Visible:=False;

pimg13.Visible:=False;

pimg14.Visible:=False;

pimg15.Visible:=False;

pimg16.Visible:=False;

pimg17.Visible:=False;

pimg18.Visible:=False;

pimg19.Visible:=False;

pimg20.Visible:=False;

pimg21.Visible:=False;

pimg22.Visible:=False;

pimg23.Visible:=False;

pimg24.Visible:=False;

pimg25.Visible:=False;

pimg26.Visible:=False;

pimg27.Visible:=False;

pimg28.Visible:=False;

pimg29.Visible:=False;

pimg30.Visible:=False;

spnl1.Caption:='';

spnl1.Visible:=False;

k:=0;

p:=0;

q:=0;

form4.Height:=250;

form4.Width:=500;

end;

procedure TForm4. N2Click (Sender: TObject);

begin

Form4.Hide;

test.Show;

end;

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, MPlayer, StdCtrls, Buttons, sBitBtn, ExtCtrls, sPanel,

jpeg, ComCtrls, acProgressBar;

type

TForm5 = class (TForm)

mp1: TMediaPlayer;

mm1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

img1: TImage;

sbtbtn1: TsBitBtn;

sbtbtn2: TsBitBtn;

sbtbtn3: TsBitBtn;

sbtbtn4: TsBitBtn;

sbtbtn5: TsBitBtn;

sbtbtn6: TsBitBtn;

sbtbtn7: TsBitBtn;

sbtbtn8: TsBitBtn;

sbtbtn9: TsBitBtn;

spnl1: TsPanel;

N4: TMenuItem;

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure N3Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure N1Click (Sender: TObject);

procedure sbtbtn1Click (Sender: TObject);

procedure sbtbtn2Click (Sender: TObject);

procedure sbtbtn3Click (Sender: TObject);

procedure sbtbtn4Click (Sender: TObject);

procedure sbtbtn5Click (Sender: TObject);

procedure sbtbtn6Click (Sender: TObject);

procedure sbtbtn7Click (Sender: TObject);

procedure sbtbtn8Click (Sender: TObject);

procedure sbtbtn9Click (Sender: TObject);

procedure N4Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses

Unit4, Unit3, Unit2, Unit1, Unit8;

{$R *.dfm}

procedure TForm5. FormClose (Sender: TObject; var Action: TCloseAction);

begin

form1.Close;

end;

procedure TForm5. N3Click (Sender: TObject);

begin

if messagedlg ('Вы действительно хотите выйти?', mtConfirmation, mbOKCancel, 0)=1 then

close

else

exit;

end;

procedure TForm5. N2Click (Sender: TObject);

begin

Form5.Hide;

form3.Show;

mp1.Close;

end;

procedure TForm5. N1Click (Sender: TObject);

begin

form5.Hide;

form2.Show;

mp1.Close;

end;

procedure TForm5. sbtbtn1Click (Sender: TObject);

begin

mp1.FileName:=GetCurrentDir+'ВидеоОсновные компоненты Delphi (визуальные).mpg';

mp1.Enabled:=True;

MP1.Display:=spnl1;

mp1.AutoOpen:=True;

mp1.Open;

mp1.DisplayRect:=spnl1.ClientRect;

end;

procedure TForm5. sbtbtn2Click (Sender: TObject);

begin

mp1.Enabled:=True;

mp1.AutoOpen:=True;

MP1.Display:=spnl1;

mp1.FileName:=GetCurrentDir+'ВидеоУрок Delphi 2010. Компонент ProgressBar. mpg';

mp1.Open;

mp1.DisplayRect:=spnl1.ClientRect;

end;

procedure TForm5. sbtbtn3Click (Sender: TObject);

begin

mp1.Enabled:=True;

mp1.AutoOpen:=True;

MP1.Display:=spnl1;

mp1.FileName:=GetCurrentDir+'ВидеоУрок Delphi. Компонент MediaPlayer. Воиспр. звуков. файл. mpg';

mp1.Open;

mp1.DisplayRect:=spnl1.ClientRect;

end;

procedure TForm5. sbtbtn4Click (Sender: TObject);

begin

mp1.Enabled:=True;

mp1.AutoOpen:=True;

MP1.Display:=spnl1;

mp1.FileName:=GetCurrentDir+'ВидеоУрок Delphi. Новая версия. Работаем с компонентом Timage. mpg';

mp1.Open;

mp1.DisplayRect:=spnl1.ClientRect;

end;

procedure TForm5. sbtbtn5Click (Sender: TObject);

begin

mp1.Enabled:=True;

mp1.AutoOpen:=True;

MP1.Display:=spnl1;

mp1.FileName:=GetCurrentDir+'ВидеоУстановка компонента AlphaSkins, Delphi — yaDelphi.ru.mpg';

mp1.Open;

mp1.DisplayRect:=spnl1.ClientRect;

end;

procedure TForm5. sbtbtn6Click (Sender: TObject);

begin

mp1.Enabled:=True;

mp1.AutoOpen:=True;

MP1.Display:=spnl1;

mp1.FileName:=GetCurrentDir+'ВидеоФорма (Form) Delphi₂.mpg';

mp1.Open;

mp1.DisplayRect:=spnl1.ClientRect;

end;

procedure TForm5. sbtbtn7Click (Sender: TObject);

begin

mp1.Play;

end;

procedure TForm5. sbtbtn8Click (Sender: TObject);

begin

mp1.Pause;