Литература

1. Ф а р о н о в В.В. Delphi 5. Учебный курс. — М.: Изд-во«Нолидж», 2000.

2. Гофман В., ХомоненкоА. Delphi 5. Наиболее полное руководство. — М.: Изд-во «BHV», 1999.

3. Бобровский С. Delphi 5. Учебный курс. — М.: Изд-во «Питер», 2000.

4. Архангельский А.Я. Интегрированная среда разработки Delphi. — М.: Изд-во «Бином», 1999.

5. Архангельский А.Я. Разработка прикладных программ для Windows в Delphi 5. — М.: Изд-во «Бином», 1999.

6. А.Я. Архангельский. Программирование в Delphi 6. – М.: ЗАО Издательство «БИНОМ», 2003

7. В.В. Фаронов. Delphi 6. Учебный курс. – М.: Издательство Молгачева С.В., 2003.

Приложения приложение 1 Листинг приложения

unit Unit1;

interface

uses

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

Dialogs, jpeg, ExtCtrls, Menus, ExtDlgs, MPlayer, StdCtrls;

type

TForm1 = class(TForm)

PopupMenu1: TPopupMenu;

N11: TMenuItem;

N21: TMenuItem;

III1: TMenuItem;

IV1: TMenuItem;

N1: TMenuItem;

Image1: TImage;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

OpenPictureDialog1: TOpenPictureDialog;

MediaPlayer1: TMediaPlayer;

N5: TMenuItem;

N7: TMenuItem;

N6: TMenuItem;

ListBox1: TListBox;

FontDialog1: TFontDialog;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

procedure N4Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N7Click(Sender: TObject);

begin

If Image1.Top=0 then Image1.Top:=Form1.ClientHeight div 2

else Image1.Top:=0;

ListBox1.Items.Add('III-2/Переместить картинку');

end;

procedure TForm1.N8Click(Sender: TObject);

begin

ListBox1.Clear;

ListBox1.Items.Add('IV-1/Oчистить содержимое ListBox1');

end;

procedure TForm1.N9Click(Sender: TObject);

begin

ListBox1.Items.Add('IV-2/Показать медиаплейер');

MediaPlayer1.Visible:=true;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Image1.Top:=0;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

ListBox1.Items.Add('IV-3/Скрыть картинку');

Image1.Visible:=false;

end;

procedure TForm1.N1Click(Sender: TObject);

begin

Close

end;

procedure TForm1.N2Click(Sender: TObject);

begin

ListBox1.Items.Add('II-1/показать картинку');

Image1.Visible:=true;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

ListBox1.Items.Add('II-2/скрыть медиаплейер');

MediaPlayer1.Visible:=false;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

ListBox1.Items.Add('II-3/Заменить картинку');

if OpenPictureDialog1.Execute = true then

Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

procedure TForm1.N5Click(Sender: TObject);

begin

ListBox1.Items.Add('III-1/сменить цвет формы');

if Form1.Color=clMedGray then Form1.Color:=clred

else

if Form1.Color=clred then Form1.Color:=clgreen

else

Form1.Color:=clMedGray;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

if FontDialog1.Execute=true then

ListBox1.Font:=FontDialog1.Font;

ListBox1.Items.Add('III-3/Изменить шрифт');

end;

end.