Введение
Данная курсовая работа предназначена для реализации решения различных задач в среде программирования DELPHI. Таких как: вызов картинки, скрытие картинки, запуск мультиплеера, смена цвета формы, перемещение картинки и др.
Задание
Постановка задачи
Разработать приложение, при запуске которого правый щелчок мышью на свободном месте формы вызывает появление всплывающего меню.
Всплывающее меню состоит из трех пунктов:
Первый пункт состоит из пяти подпунктов:
1. показать картинку;
2. скрыть картинку.
3. переместить картинку из верхней половины формы в нижнюю и
наоборот;
4. скрыть медиаплеер;
5. вызвать FontDialog1 для изменения шрифта в списке ListBox1;
Второй пункт состоит из двух подпунктов:
1. показать медиаплеер
2. окончить работу
Решение поставленной задачи
Для разработки приложения использовалась среда визуального программирования Delphi, основанная на языке Object Pascal. Приложение предназначено для решения задания № 1 курсовой работы.
Unit1.pas – Модуль для работы с задачей № 1 курсовой работы.
Листинг этого модуля находится в приложении А
Unit1.dfm – Форма для работы с задачей №1
Назначение модуля Unit1.pas: выбрать задачу №1, запустить ее на выполнение и выполнить все действия, связанные с работой этого модуля. Перечень действий перечисляется ниже.
На форме размещены следующие компоненты:
PopupMenu1 - компонент TPopupMenu, страница компонентов Standard.
Позволяет создавать всплывающее меню по нажатию любой кнопки мыши в любом месте и в любое время на форме.
ListBox1 - компонент TListBox, страница компонентов Standard.
Позволяет создать накапливающийся список из перечисляемых действий
MediaPlayer1 - компонент TMediaPlayer, страница компонентов System.
Позволяет создать элемент медиаплейер для работы с медиаинформацией.
В данной программе он является неактивным элементом.
Image1 -компонент TImage, страница компонентов Additional.
Позволяет создать или загрузить готовую картинку с любым графическим форматом. В данной работе это графические файлы с расширением jpg.
OpenPictureDialog1 - компонент TOpenPictureDialog, страница компо-нентов Dialogs.
Позволяет вызвать диалог для замены картинки с любого устройства компьютера.
FontDialog1 - компонент TFontDialog, страница компонентов Dialogs.
Позволяет вызвать диалог для шрифта в выбранном компоненте.В данной работе меняется шрифт в компоненте ListBox.
Для запуска приложения достаточно запустить файл Project1.exe.
Экранная форма задачи №1 изображена на рисунке 1.
ПРИЛОЖЕНИЕ А.
Листинг модуля реализации задачи.
unit Kurs1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, MPlayer, ExtDlgs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
Image1: TImage;
ListBox1: TListBox;
OpenPictureDialog1: TOpenPictureDialog;
FontDialog1: TFontDialog;
MediaPlayer1: TMediaPlayer;
N11: TMenuItem;
N21: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
FontDialog1ListBox11: TMenuItem;
N7: TMenuItem;
N5: TMenuItem;
procedure N7Click(Sender: TObject);
procedure FontDialog1ListBox11Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure PictureDialog11Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FontDialog1ListBox11Click(Sender: TObject);
begin
if FontDialog1.Execute then
begin
ListBox1.Font:=FontDialog1.Font;
ListBox1.Items.Add('Шрифт ListBox1 изменен');
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer1.FileName:='самолеты.mp3';
MediaPlayer1.Open;
MediaPlayer1.hide;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
if Image1.Visible then ListBox1.Items.Add('Картинка и так скрыта')
else ListBox1.Items.Add('Картинка скрыта');
Image1.Visible:=false;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile ('war1.bmp');
Image1.Stretch:= True;
if not Image1.Visible then ListBox1.Items.Add('Картинка показана')
else ListBox1.Items.Add('Картинка и так отображена');
Image1.Visible:=true;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
if Image1.Top=8 then Image1.Top:=265
else Image1.Top:=8;
ListBox1.Items.Add('Картинка перемещена');
end;
procedure TForm1.N4Click(Sender: TObject);
begin
if MediaPlayer1.Visible then ListBox1.Items.Add('Медиаплейер скрыт')
else ListBox1.Items.Add('Медиаплейер и так скрыт');
MediaPlayer1.Visible:=false;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
if not MediaPlayer1.Visible then ListBox1.Items.Add('Медиаплейер и так отображен')
else ListBox1.Items.Add('Медиаплейер показан ');
MediaPlayer1.Visible:=true;
end;
procedure TForm1.PictureDialog11Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
ListBox1.Items.Add('Картинка изменена');
end;
end;
end.
Вывод:
Выполнив данную курсовую работу, я усовершенствовал навыки работы в программе Delphi на языке Object Pascal.Изучил такие компоненты как: FontDialog, OpenPictureDialog, MediaPlayer, ListBox, PopupMenu и др.
А также узнал много новых команд программы Delphi.
Список литературы:
1. Флёнов М.Б. Библия Delphi − СПБ: Изд-во БХВ-Петербург, 2008г.
2. Архангельский А. Я. Программирование в Delphi г. Москва: издательство «Бином», 2005г.
3. https://www.delphisources.ru