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

Вид работы:

Курсовая работа (т)
Предмет:

Информационное обеспечение, программирование
Язык:

Русский
,
Формат файла:
MS Word

17 Кб
Опубликовано:

2012-11-14

Все курсовые работы по информационному обеспечению

Скачать курсовую работу Читать текст online Заказать курсовую
*Помощь в написании! Посмотреть все курсовые работы

Вы можете узнать стоимость помощи в написании студенческой работы.

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

Введение

Понятие компонента является фундаментальным для 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] и Культина [2].

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

.3 Аппаратно - программный комплекс

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

-IntelPentiumIV33 МГц и выше;

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

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

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

-монитор;

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

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

.1 Вызов и загрузка

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

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

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

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

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

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

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

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

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

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

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

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

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

-ТЕОРИЯ;

-ЭМУЛЯЦИЯ;

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

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

-СПРАВКА;

-ВИДЕО;

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

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

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

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

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

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

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

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

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

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

-ТЕОРИЯ;

-ЭМУЛЯЦИЯ;

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

-ВИДЕО;

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

-ТЕОРИЯ;

-ЭМУЛЯЦИЯ;

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

-СПРАВКА;

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

-ВИДЕО;

-ВЫХОД.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Наименование модуляФункциональное назначениеUnit1.pasЗаставка программыUnit2.pasГлавная форма программыUnit3.pasФорма «Теория»Unit4.pasФорма «Эмуляция»Unit5.pasФорма «Видео»Unit6.pasФорма «Тестирование»Unit7.pasФорма «справка»Unit8.pasФорма «о программе»4. Описание программы

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

ОшибкаИсправлениеНеправильно производился подсчет в тестированииНеправильно считалась переменная ответа.Не отображались html-файлы в WebbrouserИсправлен путь к html-файлуВидео-файл не подгонялся под размер панелиИсправлено, путем добавления процедуры, позволяющая видео пропорционально подгоняться под размер панели

Заключение

В ходе курсового проекта был разработан Электронный учебник «визуальные и невизуальные компоненты 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,, ExtCtrls, ComCtrls, acProgressBar, jpeg, sSkinManager,, Buttons, sSpeedButton, StdCtrls;

= class(TForm): TsSkinProvider;: TsSkinManager;: TImage;: TsSpeedButton;: TsSpeedButton;: TLabel;: TLabel;btn2Click(Sender: TObject);btn1Click(Sender: TObject);btn1MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);btn1MouseLeave(Sender: TObject);lbl1MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);img1MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);btn2MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);btn2MouseLeave(Sender: TObject);lbl2MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);

{ Private declarations }

{ Public declarations };

: TForm1;

, Unit5, Unit8;

{$R *.dfm}

TForm1.btn2Click(Sender: TObject);;;

TForm1.btn1Click(Sender: TObject);.Hide;.Show;;

TForm1.btn1MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);.Visible:=True;;

TForm1.btn1MouseLeave(Sender: TObject);.Visible:=False;;

TForm1.lbl1MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);.Visible:=False;.Visible:=False;;

TForm1.img1MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);.Visible:=False;.Visible:=False;;

TForm1.btn2MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);.Visible:=True;;

TForm1.btn2MouseLeave(Sender: TObject);.Visible:=False;;

TForm1.lbl2MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);.Visible:=False;.Visible:=False;;

.Unit2;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, jpeg, ExtCtrls, acPNG, XPMan, StdCtrls, Buttons, sBitBtn;

= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TMenuItem;: TMenuItem;: TImage;: TImage;: TMenuItem;: TOpenDialog;: TsBitBtn;: TMenuItem;: TImage;: TImage;FormClose(Sender: TObject; var Action: TCloseAction);N4Click(Sender: TObject);img2MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);img1MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);img3MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);img4MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);FormCreate(Sender: TObject);img7Click(Sender: TObject);img6Click(Sender: TObject);img5Click(Sender: TObject);N1Click(Sender: TObject);N5Click(Sender: TObject);FormHide(Sender: TObject);N6Click(Sender: TObject);img8MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);img9Click(Sender: TObject);N7Click(Sender: TObject);N3Click(Sender: TObject);N2Click(Sender: TObject);sbtbtn1Click(Sender: TObject);img10MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);N8Click(Sender: TObject);img11Click(Sender: TObject);

{ Private declarations }

{ Public declarations };

: TForm2;

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

{$R *.dfm}

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

TForm2.N4Click(Sender: TObject);messagedlg ('Вы действительно хотите выйти?',mtConfirmation,mbOKCancel,0)=1 then;;

TForm2.img2MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);.Visible:=True;.Visible:=false;.Visible:=false;.Visible:=False;.Visible:=false;.Visible:=True;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=false;;

TForm2.img1MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=False;.Visible:=true;.Visible:=True;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=false;

;

TForm2.img3MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);.Visible:=false;.Visible:=True;.Visible:=false;.Visible:=true;.Visible:=False;.Visible:=true;.Visible:=false;.Visible:=True;.Visible:=true;.Visible:=false;

;

TForm2.img4MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);.Visible:=false;.Visible:=True;.Visible:=false;.Visible:=true;.Visible:=true;.Visible:=False;.Visible:=false;.Visible:=True;.Visible:=true;.Visible:=false;;

TForm2.FormCreate(Sender: TObject);.Top:=img2.top;.Left:=img2.Left;.Top:=img3.top;.Left:=img3.Left;.Top:=img4.top;.Left:=img4.Left;;TForm2.img7Click(Sender: TObject);messagedlg('Вы действительно хотите выйти?',mtConfirmation,mbOKCancel,0)=1 then;;

TForm2.img6Click(Sender: TObject);.Hide;.show;;

TForm2.img5Click(Sender: TObject);.Hide;.show;;

TForm2.N1Click(Sender: TObject);.Hide;.show;;

TForm2.N5Click(Sender: TObject);.Hide;.show;;

TForm2.FormHide(Sender: TObject);.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=false;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=True;

;

TForm2.N6Click(Sender: TObject);.Show;.Hide;;

TForm2.img8MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=true;.Visible:=false;;

TForm2.img9Click(Sender: TObject);.Show;.Hide;;

TForm2.N7Click(Sender: TObject);.Show;.Hide;;

TForm2.N3Click(Sender: TObject);.show;;

TForm2.N2Click(Sender: TObject);.show;;

TForm2.sbtbtn1Click(Sender: TObject);dlgOpen1.Execute then.Picture.LoadFromFile(dlgOpen1.FileName);;

TForm2.img10MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);.Visible:=True;.Visible:=False;.Visible:=true;.Visible:=false;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;;

TForm2.N8Click(Sender: TObject);.Show;.Hide;;

TForm2.img11Click(Sender: TObject);.Show;.Hide;;

.Unit3;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, sTreeView, OleCtrls, SHDocVw, StdCtrls, sButton, Menus;

= class(TForm): TWebBrowser;: TsTreeView;: TsButton;: TsButton;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;FormClose(Sender: TObject; var Action: TCloseAction);sTreeView1DblClick(Sender: TObject);sButton1Click(Sender: TObject);sButton2Click(Sender: TObject);N1Click(Sender: TObject);N2Click(Sender: TObject);N3Click(Sender: TObject);N4Click(Sender: TObject);

{ Private declarations }

{ Public declarations };

: TForm3;

Unit2, Unit1, Unit4, Unit5, Unit8;

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

TForm3.sTreeView1DblClick(Sender: TObject);streeview1.Items.Item[1].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\библиотека VCL\biblvcl.htm');streeview1.Items.Item[2].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\библиотека VCL\klastcomp.htm');streeview1.Items.Item[4].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\библиотека VCL\svvavkomp.htm');streeview1.Items.Item[5].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\библиотека VCL\sobitiya.htm');streeview1.Items.Item[3].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\библиотека VCL\metodi.htm');streeview1.Items.Item[6].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\библиотека VCL\tipymetod.htm');streeview1.Items.Item[8].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\создание визуальных компонент\proverka.htm');streeview1.Items.Item[9].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\создание визуальных компонент\isxkod.htm');streeview1.Items.Item[10].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\создание визуальных компонент\realiz.htm');streeview1.Items.Item[12].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\стандартные компоненты\elemypr.htm');streeview1.Items.Item[13].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\стандартные компоненты\additional.htm');streeview1.Items.Item[14].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\стандартные компоненты\intfakt.htm');streeview1.Items.Item[16].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\Создание не визуальных компонент\dialog.htm');streeview1.Items.Item[17].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\Создание не визуальных компонент\mainform.htm');streeview1.Items.Item[18].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\Создание не визуальных компонент\nevkomp.htm');;

TForm3.sButton1Click(Sender: TObject);.show;.Hide;;

TForm3.sButton2Click(Sender: TObject);messagedlg('Вы действительно хотите выйти?',mtConfirmation,mbOKCancel,0)=1 then;;

TForm3.N1Click(Sender: TObject);.Hide;.show;;TForm3.N2Click(Sender: TObject);.Hide;.show;;

TForm3.N3Click(Sender: TObject);messagedlg('Вы действительно хотите выйти?',mtConfirmation,mbOKCancel,0)=1 then;;

TForm3.N4Click(Sender: TObject);.Hide;.Show;;

.Unit4;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, jpeg, ExtCtrls, StdCtrls, Buttons, sBitBtn, acPNG, sPanel;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TsBitBtn;: TImage;: TsPanel;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TEdit;: TImage;: TImage;: TImage;: TEdit;: TImage;: TImage;: TImage;: TEdit;: TImage;: TImage;: TImage;: TImage;: TImage;: TEdit;: TImage;: TImage;: TImage;: TImage;: TImage;: TEdit;: TImage;: TImage;: TImage;: TsBitBtn;: TsBitBtn;: TsPanel;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TEdit;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TMemo;: TImage;: TImage;: TImage;: TMemo;: TImage;: TImage;: TImage;: TEdit;: TImage;: TImage;: TImage;: TImage;: TImage;: TMenuItem;FormClose(Sender: TObject; var Action: TCloseAction);N4Click(Sender: TObject);N1Click(Sender: TObject);N3Click(Sender: TObject);sbtbtn2Click(Sender: TObject);FormCreate(Sender: TObject);img2Click(Sender: TObject);img3Click(Sender: TObject);img5Click(Sender: TObject);img6Click(Sender: TObject);edt1KeyDown(Sender: TObject; var Key: Word;: TShiftState);img7Click(Sender: TObject);img9DblClick(Sender: TObject);edt2KeyDown(Sender: TObject; var Key: Word;: TShiftState);img11Click(Sender: TObject);FormShow(Sender: TObject);FormHide(Sender: TObject);img10Click(Sender: TObject);img12Click(Sender: TObject);edt3KeyDown(Sender: TObject; var Key: Word;: TShiftState);img13Click(Sender: TObject);img15Click(Sender: TObject);img17DblClick(Sender: TObject);img18Click(Sender: TObject);edt4KeyDown(Sender: TObject; var Key: Word;: TShiftState);img19Click(Sender: TObject);img21Click(Sender: TObject);img23Click(Sender: TObject);img25Click(Sender: TObject);img26Click(Sender: TObject);img16Click(Sender: TObject);sbtbtn3Click(Sender: TObject);sbtbtn4Click(Sender: TObject);pimg2Click(Sender: TObject);pimg4Click(Sender: TObject);pimg5Click(Sender: TObject);pimg7Click(Sender: TObject);pimg9Click(Sender: TObject);pimg10Click(Sender: TObject);pimg12Click(Sender: TObject);edt6KeyPress(Sender: TObject; var Key: Char);pimg13Click(Sender: TObject);pimg15Click(Sender: TObject);pimg16Click(Sender: TObject);pimg18DblClick(Sender: TObject);mmo1KeyPress(Sender: TObject; var Key: Char);pimg19Click(Sender: TObject);pimg21Click(Sender: TObject);mmo2KeyPress(Sender: TObject; var Key: Char);pimg22Click(Sender: TObject);pimg24Click(Sender: TObject);pimg26Click(Sender: TObject);pimg28Click(Sender: TObject);FormKeyPress(Sender: TObject; var Key: Char);pimg30Click(Sender: TObject);N2Click(Sender: TObject);

{ Private declarations }

{ Public declarations };

: TForm4;,q,p,m:Integer;

Unit2, Unit3, Unit1, Unit8;

{$R *.dfm}TForm4.FormClose(Sender: TObject; var Action: TCloseAction);.close;;

TForm4.N4Click(Sender: TObject);messagedlg('Вы действительно хотите выйти?',mtConfirmation,mbOKCancel,0)=1 then;;

TForm4.N1Click(Sender: TObject);.Hide;.show;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;

;

TForm4.N3Click(Sender: TObject);.Hide;.show;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;

;

TForm4.sbtbtn2Click(Sender: TObject);.Hide;.show;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;

;

TForm4.FormCreate(Sender: TObject);edt1.Text='' then q:=q+1;.Left:=90;.Top:=476;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.top:=250;.top:=250;.left:=380;:=0;:=0;

;

TForm4.img2Click(Sender: TObject);:=1;;

TForm4.img3Click(Sender: TObject);k=1 then.Visible:=True;.Visible:=True;.Caption:='Поставьте около компонента Edit кнопку это компонент Button на вкладке Standart';;;

TForm4.img5Click(Sender: TObject);:=2;.Visible:=True;;

TForm4.img6Click(Sender: TObject);

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

TForm4.edt1KeyDown(Sender: TObject; var Key: Word;: TShiftState);Key=13 then(edt1.Text='Имя')or(edt1.Text='имя') then.Visible:=True;.Visible:=False;

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

img9.Visible:=True;:=q+1;;

TForm4.img7Click(Sender: TObject);(edt1.Text='Имя')or(edt1.Text='имя') then.Visible:=True;.Visible:=False;

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

img9.Visible:=True;;;

TForm4.img9DblClick(Sender: TObject);.Visible:=True;.Visible:=False;.visible:=True;.Caption:='Напишите в обработчике событий: Form1.Caption:=Edit1.Text;';

TForm4.edt2KeyDown(Sender: TObject; var Key: Word;: TShiftState);Key=13 then(Edt2.Text='Form1.Caption:=Edit1.Text;')or(Edt2.Text='form1.caption:=edit1.text;') then.Visible:=True;.Visible:=True;.Visible:=False;.Caption:='Поставтье на форму ещё 1 кнопку';:=q+1;;;TForm4.img11Click(Sender: TObject);:=3;.Visible:=False;;

TForm4.FormShow(Sender: TObject);.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=true;.Width:=500;.Height:=250;;

TForm4.FormHide(Sender: TObject);.Height:=250;.Width:=500;:=0;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;:=0;.Caption:='';.Visible:=False;.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=false;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;

.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;:=0;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Text:='';.Text:='';.Visible:=False;.Text:='';.Visible:=False;.Height:=627;.Width:=1012;;

TForm4.img10Click(Sender: TObject);(Edt2.Text='Form1.Caption:=Edit1.Text;')or(Edt2.Text='form1.caption:=edit1.text;') then.Visible:=True;.Visible:=True;.Visible:=False;.Caption:='Поставтье на форму ещё 1 кнопку';:=q+1;;

TForm4.img12Click(Sender: TObject);k=3 then.Visible:=False;.Visible:=True;.Visible:=true;.Visible:=True;.Caption:='Измените Имя 2 Кнопки на: Выход'

;;

TForm4.edt3KeyDown(Sender: TObject; var Key: Word;: TShiftState);Key=13 then(Edt3.Text='Выход')or(Edt3.Text='выход') then.Visible:=True;.Visible:=True;.Visible:=False;.Caption:='Перейдите на вкладку Events';.Visible:=True;:=q+1;;;

TForm4.img13Click(Sender: TObject);(Edt3.Text='Выход')or(Edt3.Text='выход') then.Visible:=True;.Visible:=True;.Visible:=False;.Caption:='Перейдите на вкладку Events';.Visible:=True;:=q+1;;

TForm4.img15Click(Sender: TObject);.visible:=True;.Visible:=False;.Caption:='Щёлкните по процедуре Onclick 2 раза';.Visible:=False;;TForm4.img17DblClick(Sender: TObject);.Visible:=False;.visible:=False;.Visible:=True;.Caption:='Напишите в обработчик событий следущие строчки: Close;';

TForm4.img18Click(Sender: TObject);

(Edt4.Text='Close;')or(Edt4.Text='close;') then.Visible:=True;.Visible:=True;.Visible:=False;.Caption:='Перейдите на вкладку Run';:=q+1;;

TForm4.edt4KeyDown(Sender: TObject; var Key: Word;: TShiftState);

Key=13 then(Edt4.Text='Close;')or(Edt4.Text='close;') then.Visible:=True;.Visible:=True;.Visible:=False;.Caption:='Перейдите на вкладку Run';

:=q+1;;;

TForm4.img19Click(Sender: TObject);.Visible:=False;.Visible:=True;.visible:=True;.Caption:='Нажмите на Run на вкладке Run';;

TForm4.img21Click(Sender: TObject);.Visible:=False;.visible:=True;

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

img23.Visible:=True;.Visible:=True;;TForm4.img23Click(Sender: TObject);

(edt5.Text='Моя форма') or (edt5.Text='моя форма') then.Visible:=True;.Visible:=False;.Visible:=True;.Visible:=False;

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

end;

TForm4.img25Click(Sender: TObject);.Visible:=False;.Visible:=True;

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

end;

TForm4.img26Click(Sender: TObject);.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;.Height:=250;.Width:=500;

;

TForm4.img16Click(Sender: TObject);(Edt4.Text='Close;')or(Edt4.Text='close;') then.Visible:=True;.Visible:=True;.Visible:=False;.Caption:='Перейдите на вкладку Run';:=q+1;;

TForm4.sbtbtn3Click(Sender: TObject);.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=True;

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

form4.Width:=838;.Height:=752;.Visible:=False;;

TForm4.sbtbtn4Click(Sender: TObject);.Visible:=True;.Visible:=True;.Caption:='Перейдите на вклвдку Dialogs';.Visible:=True;.Height:=627;.Width:=1012;;

TForm4.pimg2Click(Sender: TObject);.visible:=True;.Visible:=True;.Visible:=True;.Caption:='Поставте на форму SaveDialog';;

TForm4.pimg4Click(Sender: TObject);:=2;;

TForm4.pimg5Click(Sender: TObject);q=2 then.Caption:='Перейдите на вкладку standart';.Visible:=True;.Visible:=True;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;;

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

pimg6.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;;

TForm4.pimg9Click(Sender: TObject);:=3;;

TForm4.pimg10Click(Sender: TObject);q=3 then.Caption:='Переименуйте кнопку в "Сохранить"';.Visible:=False;.Visible:=False;.Visible:=true;.Visible:=true;;

TForm4.pimg12Click(Sender: TObject);.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;;

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

(edt6.Text='Сохранить')or(edt6.Text='сохранить') then.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=False;.Caption:='Поставьте на вкалдку компонент memo';

;TForm4.pimg13Click(Sender: TObject);

;

TForm4.pimg15Click(Sender: TObject);:=4;;

TForm4.pimg16Click(Sender: TObject);q=4 then.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;

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

end;;

TForm4.pimg18DblClick(Sender: TObject);.Visible:=False;.Visible:=False;.Visible:=true;.Caption:='В появившемся окне напишите следующий код "with SaveDialog1, Memo1 do if Execute then begin Lines.SaveToFile(FileName);Memo1.Lines.SaveToFile(FileName);"';.Visible:=True;;

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

mmo1.Text='with SaveDialog1, Memo1 do if Execute then begin Lines.SaveToFile(FileName);Memo1.Lines.SaveToFile(FileName);' then.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;.Caption:='Запусите программу щёлкнуш по кнопке Run';;

TForm4.pimg19Click(Sender: TObject);

;

TForm4.pimg21Click(Sender: TObject);.Visible:=False;.Visible:=True;.Visible:=False;.Visible:=False;

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

mmo2.Visible:=True;;TForm4.mmo2KeyPress(Sender: TObject; var Key: Char);(mmo2.Text='Моё первое сохранение')or(mmo2.text='моё первое сохранение')then.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;

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

pimg24.Visible:=True;

;

TForm4.pimg22Click(Sender: TObject);(mmo2.Text='Моё первое сохранение')or(mmo2.text='моё первое сохранение')then.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;

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

pimg24.Visible:=True;

;

TForm4.pimg24Click(Sender: TObject);.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;

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

edt7.Visible:=True;;

TForm4.pimg26Click(Sender: TObject);(edt7.text='Сохранение.txt')or(edt7.text='сохранение.txt')then.Visible:=False;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=True;.Visible:=True;

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

q:=6;

;

TForm4.pimg28Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=True;.Caption:='Теперь нажмите Enter';;

TForm4.FormKeyPress(Sender: TObject; var Key: Char);(Key in [#13])or(q=6) then.Visible:=False;.Visible:=True;

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

end

;

TForm4.pimg30Click(Sender: TObject);.Visible:=True;.Visible:=True;.Visible:=True;

.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Caption:='';.Visible:=False;:=0;:=0;:=0;.Height:=250;.Width:=500;;

TForm4.N2Click(Sender: TObject);.Hide;.Show;;

.Unit5;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, MPlayer, StdCtrls, Buttons, sBitBtn, ExtCtrls, sPanel,, ComCtrls, acProgressBar;

= class(TForm): TMediaPlayer;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TImage;: TsBitBtn;: TsBitBtn;: TsBitBtn;: TsBitBtn;: TsBitBtn;: TsBitBtn;: TsBitBtn;: TsBitBtn;: TsBitBtn;: TsPanel;: TMenuItem;FormClose(Sender: TObject; var Action: TCloseAction);N3Click(Sender: TObject);N2Click(Sender: TObject);N1Click(Sender: TObject);sbtbtn1Click(Sender: TObject);sbtbtn2Click(Sender: TObject);sbtbtn3Click(Sender: TObject);sbtbtn4Click(Sender: TObject);sbtbtn5Click(Sender: TObject);sbtbtn6Click(Sender: TObject);sbtbtn7Click(Sender: TObject);sbtbtn8Click(Sender: TObject);sbtbtn9Click(Sender: TObject);N4Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm5;

, Unit3, Unit2, Unit1, Unit8;

{$R *.dfm}

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

TForm5.N3Click(Sender: TObject);messagedlg('Вы действительно хотите выйти?',mtConfirmation,mbOKCancel,0)=1 then;;

TForm5.N2Click(Sender: TObject);.Hide;.Show;.Close;;TForm5.N1Click(Sender: TObject);.Hide;.Show;.Close;;

TForm5.sbtbtn1Click(Sender: TObject);

.FileName:=GetCurrentDir+'\Видео\Основные компоненты Delphi (визуальные).mpg';.Enabled:=True;.Display:=spnl1;.AutoOpen:=True;.Open;.DisplayRect:=spnl1.ClientRect;;

TForm5.sbtbtn2Click(Sender: TObject);.Enabled:=True;.AutoOpen:=True;.Display:=spnl1;.FileName:=GetCurrentDir+'\Видео\Урок Delphi 2010. Компонент ProgressBar..mpg';.Open;.DisplayRect:=spnl1.ClientRect;;TForm5.sbtbtn3Click(Sender: TObject);.Enabled:=True;.AutoOpen:=True;.Display:=spnl1;.FileName:=GetCurrentDir+'\Видео\Урок Delphi. Компонент MediaPlayer. Воиспр. звуков. файл.mpg';.Open;.DisplayRect:=spnl1.ClientRect;;

TForm5.sbtbtn4Click(Sender: TObject);.Enabled:=True;.AutoOpen:=True;.Display:=spnl1;.FileName:=GetCurrentDir+'\Видео\Урок Delphi. Новая версия. Работаем с компонентом Timage..mpg';

mp1.Open;.DisplayRect:=spnl1.ClientRect;;

TForm5.sbtbtn5Click(Sender: TObject);.Enabled:=True;.AutoOpen:=True;.Display:=spnl1;.FileName:=GetCurrentDir+'\Видео\Установка компонента AlphaSkins, Delphi - yaDelphi.ru.mpg';.Open;.DisplayRect:=spnl1.ClientRect;;

TForm5.sbtbtn6Click(Sender: TObject);.Enabled:=True;.AutoOpen:=True;.Display:=spnl1;.FileName:=GetCurrentDir+'\Видео\Форма (Form) Delphi_2.mpg';.Open;.DisplayRect:=spnl1.ClientRect;;

TForm5.sbtbtn7Click(Sender: TObject);.Play;

;

TForm5.sbtbtn8Click(Sender: TObject);.Pause;;

TForm5.sbtbtn9Click(Sender: TObject);.Stop;.Position:=0;;

TForm5.N4Click(Sender: TObject);.Hide;.Show;.Close;;

.Unit6;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, sButton, sLabel, jpeg, ExtCtrls;

= class(TForm): TImage;: TsLabel;: TsButton;btn1Click(Sender: TObject);

{ Public declarations };

: TSpravka;;

{$R *.dfm}

TSpravka.btn1Click(Sender: TObject);.hide;;

.Unit7;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, sLabel, acPNG, ExtCtrls, Buttons, sBitBtn, jpeg;

= class(TForm): TImage;: TsLabel;: TsLabel;: TsLabel;: TsLabel;: TsLabel;: TsLabel;: TsBitBtn;FormCreate(Sender: TObject);sbtbtn1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };

: TProg;

;

{$R *.dfm}

TProg.FormCreate(Sender: TObject);.BringToFront;;

TProg.sbtbtn1Click(Sender: TObject);.Hide;;

.Unit8;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, sLabel, sSkinProvider, sSkinManager, sButton,, sCheckBox, ExtCtrls, sPanel, Buttons, sSpeedButton, sBitBtn,;

= class(TForm): TsSkinManager;: TsSkinProvider;: TsLabel;: TsButton;: TsGroupBox;: TsCheckBox;: TsCheckBox;: TsCheckBox;: TsCheckBox;: TsGroupBox;: TsButton;: TsCheckBox;: TsCheckBox;: TsCheckBox;: TsCheckBox;: TsGroupBox;: TsButton;: TsPanel;: TsCheckBox;: TsCheckBox;: TsCheckBox;: TsCheckBox;: TsGroupBox;: TsButton;: TsCheckBox;: TsCheckBox;: TsCheckBox;: TsCheckBox;: TsGroupBox;: TsButton;: TsCheckBox;: TsCheckBox;: TsCheckBox;: TsCheckBox;: TsLabel;: TsButton;: TsBitBtn;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;chk1Click(Sender: TObject);chk2Click(Sender: TObject);chk3Click(Sender: TObject);chk4Click(Sender: TObject);btn1Click(Sender: TObject);FormCreate(Sender: TObject);chk5Click(Sender: TObject);chk6Click(Sender: TObject);chk7Click(Sender: TObject);chk8Click(Sender: TObject);btn2Click(Sender: TObject);btn3Click(Sender: TObject);chk9Click(Sender: TObject);chk10Click(Sender: TObject);chk11Click(Sender: TObject);chk12Click(Sender: TObject);btn4Click(Sender: TObject);chk13Click(Sender: TObject);chk14Click(Sender: TObject);chk15Click(Sender: TObject);chk16Click(Sender: TObject);btn5Click(Sender: TObject);chk17Click(Sender: TObject);chk18Click(Sender: TObject);chk19Click(Sender: TObject);chk20Click(Sender: TObject);FormHide(Sender: TObject);btn6Click(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);sbtbtn1Click(Sender: TObject);N3Click(Sender: TObject);N1Click(Sender: TObject);N5Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: Ttest;,c:Byte; i:Integer;

, Unit2, Unit1;

{$R *.dfm}

Ttest.chk1Click(Sender: TObject);chk1.Checked then:=1;.Checked:=False;.Checked:=False;.Checked:=False;;;

Ttest.chk2Click(Sender: TObject);chk2.Checked then:=0;.Checked:=False;.Checked:=False;.Checked:=False;;;Ttest.chk3Click(Sender: TObject);chk3.Checked then:=0;.Checked:=False;.Checked:=False;.Checked:=False;;;

Ttest.chk4Click(Sender: TObject);chk4.Checked then:=0;.Checked:=False;.Checked:=False;.Checked:=False;;;

Ttest.btn1Click(Sender: TObject);(chk3.Checked=False)and(chk1.Checked=False)and(chk2.Checked=False)and(chk4.Checked=False) then.Visible:=True.Caption:='За что отвечает поле Host?';.Visible:=False;.Visible:=False;.Visible:=true;.Visible:=True;.Visible:=false;h=1 then:=1;;;

Ttest.FormCreate(Sender: TObject);.Left:=16;.Top:=48;.left:=32;.Top:=208;.Left:=16;.Top:=48;.left:=32;.Top:=208;.Left:=16;.Top:=48;.left:=32;.Top:=208;.Width:=305;.Height:=145;.Width:=305;.Height:=145;.Width:=305;.Height:=145;.Width:=305;.Height:=145;.Left:=16;.Top:=48;.left:=32;.Top:=208;;

Ttest.chk5Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;

Ttest.chk6Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;

Ttest.chk7Click(Sender: TObject);:=2;.Checked:=False;.Checked:=False;.Checked:=False;;

Ttest.chk8Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;

Ttest.btn2Click(Sender: TObject);(chk5.Checked=False)and(chk6.Checked=False)and(chk7.Checked=False)and(chk8.Checked=False) then.Visible:=True.Caption:='Что указываеться в свойстве Bindings?';.Visible:=False;.Visible:=False;.Visible:=true;.Visible:=True;.Visible:=false;h=2 then:=c+1;;;

Ttest.btn3Click(Sender: TObject);(chk9.Checked=False)and(chk10.Checked=False)and(chk11.Checked=False)and(chk12.Checked=False) then.Visible:=True.Caption:='Назначение библиотеки xmlerrdisp.js?';.Visible:=False;.Visible:=False;.Visible:=true;.Visible:=True;.Visible:=false;h=3 then:=c+1;;;

Ttest.chk9Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;Ttest.chk10Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;

Ttest.chk11Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;

Ttest.chk12Click(Sender: TObject);:=3;.Checked:=False;.Checked:=False;.Checked:=False;;

Ttest.btn4Click(Sender: TObject);(chk13.Checked=False)and(chk14.Checked=False)and(chk15.Checked=False)and(chk16.Checked=False) then.Visible:=True.Caption:='Назначение Элемента DataGrid?';.Visible:=False;.Visible:=False;.Visible:=true;.Visible:=True;.Visible:=false;h=4 then:=c+1;;;

Ttest.chk13Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;

Ttest.chk14Click(Sender: TObject);:=4;.Checked:=False;.Checked:=False;.Checked:=False;;

Ttest.chk15Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;

Ttest.chk16Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;

Ttest.btn5Click(Sender: TObject);(chk13.Checked=False)and(chk14.Checked=False)and(chk15.Checked=False)and(chk16.Checked=False) then.Visible:=True.Visible:=False;.Visible:=False;.Visible:=false;.Visible:=True;.Visible:=True;h=5 then:=c+1;.Visible:=true;.Caption:='Ваша оценка '+inttostr(c);;;Ttest.chk17Click(Sender: TObject);:=5;.Checked:=False;.Checked:=False;.Checked:=False;;

Ttest.chk18Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;

Ttest.chk19Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;

Ttest.chk20Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;

Ttest.FormHide(Sender: TObject);

begin.Caption:='Что из перечисленного относиться к визуальным компонентам?';

grp1.Visible:=True;.Visible:=true;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Caption:='';.Visible:=False;:=0;:=0;;

Ttest.btn6Click(Sender: TObject);

begin.Caption:='В следствии чего создаёться обьект типа TwebRequest';

Ttest.FormClose(Sender: TObject; var Action: TCloseAction);.Close;;Ttest.sbtbtn1Click(Sender: TObject);.img1.Picture.LoadFromFile(GetCurrentDir+'\Image\zast.jpg');.Hide;.Show;;

Ttest.N3Click(Sender: TObject);.Hide;.show;;

Ttest.N1Click(Sender: TObject);.img1.Picture.LoadFromFile(GetCurrentDir+'\Image\zast.jpg');.Hide;.Show;

;

Ttest.N5Click(Sender: TObject);MessageBox(Glav.Handle,

PChar('Вы действительно хотите выйти'),

PChar('Выход'), MB_YESNO or MB_ICONQUESTION)=mrYes.Close;;.

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

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

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