Описание плана разработки программы

Практическая работа №2 Работа с меню

Листинг подпрограммы

procedure TForm1.Image1Click (Sender: TObject); begin

OpenDialog1.Execute;

Image1.Picture.LoadFromFile (OpenDialog1.FileName); end;

Цель работы -

Создать программу, выполняющую следующие действия:

1. После запуска программы в окне изображается строка меню (Файл, Выход).

2. При выборе пункта меню Файл появляются пункты меню (Рисунки, Выход).

3. При выборе пункта меню Рисунки появляется вложенное меню, состоящее из двух пунктов (Облака, Лес).

Рис. 24.

4. По щелчку правой кнопки мыши появляется контекстное меню.

5. Выбрать по пункту другой рисунок

Рис. 25.

6. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.

7. Если выбрать любой из пунктов Выход, работа программы завершается.

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: панель Panel, рисунок Image, диалоговое окно OpenDialog.

3. Выполнить следующие действия:

			Таблица 7.
Выделенный объект	Вкладка окна	Имя свойства/	Действие
Object Inspector	имя события
Form1	Properties	Caption	Установка имени формы «Мое
			меню»
	Events	OnMouseDown	var p:TPoint;
			begin
			p.X:=X;
			p.Y:=Y;
			p:= ClientToScreen (p);
			PopupMenu1.Popup (p.X, p.Y);
			end;
Запустить редактор	меню (дважды щелкнуть на значке меню на форме)
Form1.MainMenu1	Properties	Caption	Ввести текст пункта меню –
	(в окне Object		Файл, и нажать Enter. Система
	Inspector не выбран		присвоит ему имя N1
	никакой объект)

Между существующими и будущими пунктами меню можно переключаться с помощью щелчка мыши или курсорных клавиш.

Form1.MainMenu1	Properties	Caption	Ввести текст пункта меню –
			Выход, и нажать Enter. Система
			присвоит ему имя N2.
	Events (щелкнуть	N2Click	Close;
	на пункте Выход в
	строке меню)

Щелкните на пункте Файл. Редактор меню создал еще одну заготовку под этим пунктом. Это заготовка для меню, которое откроется при выборе пункта Файл в работающей программе. Используя заготовки, создайте в этом меню два пункта: Рисунки (система присвоит ему имя N3) и Выход (N4). Выберите в редакторе меню пункт Рисунки и нажмите комбинацию клавиш Ctrl + Вправо.

N4: TMenuItem	Events			OnClick	Выберем	из	раскрывающегося
					списка	уже	существующую
					процедуру-обработчик N2Click
Form1.MainMenu1	Properties		Caption	Ввести текст пункта меню –
					Облака, и нажать Enter. Система
					присвоит ему имя N5.
N5: TMenuItem	Events	(выбрать в	OnClick	Image1.Picture.LoadFromFile
	строке	меню	на		(‘C:\Windows\Облака.bmp’);
	форме	пункт
	Облака)
Form1.MainMenu1	Properties		Caption	Ввести текст пункта меню – Лес,
					и нажать Enter. Система
					присвоит ему имя N6.
N6: TMenuItem	Events	(выбрать в	OnClick	Image1.Picture.LoadFromFile
	строке	меню	на		(‘C:\Windows\Лес.bmp’);
	форме пункт Лес)

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

			Продолжение таблицы 7.
Выделенный объект	Вкладка окна	Имя свойства /	Действие
	Object Inspector	имя события
PopupMenu	Properties	Caption	Ввести текст пункта меню –
(Вкладка Standard)			Облака, и нажать Enter. Система
			присвоит ему имя N7.
		Caption	Ввести текст пункта меню – Лес,
			и нажать Enter. Система
			присвоит ему имя N8.
N7	Events	OnClick	Выберем из раскрывающегося
			списка уже существующую
			процедуру-обработчик N5Click
N8	Events	OnClick	Выберем из раскрывающегося
			списка уже существующую
			процедуру-обработчик N6Click
Image	Properties	Stretch	Присвоить значение True
(Вкладка Additional)
4. Сохраните проект, запустите и протестируйте его.

Дата добавления: 2017-02-01