Лабораторно-практическая работа № 4

Тема: События мышки

Цель: Закрепить навыки использования событий DragDrop, DragOver

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

Порядок выполнения

1. Установите на форме следующие объекты и измените им свойства:

Объект	Свойство	Значение	Свойство	Значение
Изображение	Name	ImgGerm	Tag	1
	Name	ImgBras	Tag	2
	Name	ImgFra	Tag	3
	Name	ImgItal	Tag	4
	Name	ImgEng	Tag	5
Для всех изображений
	DragMode	1- Automatic
	Picture	\Icons\Flags\…
	DragIcon	(такая же картинка как и в свойстве Picture)
Метка	Name	LblGerm	Tag	1
	Name	LblBras	Tag	2
	Name	LblFra	Tag	3
	Name	LblItal	Tag	4
	Name	LblEng	Tag	5

2. Приведите свою форму в соответствие с образцом

3. В окне кода процедуры обработки события DragOver для объектаLblBrasнабрать

If Source.Tag = ImgBras.Tag Then

Source.Top = LblBras.Top

Source.Left = LblBras.Left + LblBras.Width

Source.Visible = True

End If

4. В окне кода процедуры обработки события DragOver для других меток код набрать самостоятельно

5. В окне кода процедуры обработки события DragOver для объектаFormнабрать

Source.Visible = False

6. Проверить работу программы

Лабораторно-практическая работа № 5

Тема: События клавиатуры.

Цель: Получить навыки использования события KeyPress, KeyUp, KeyDown

Порядок выполнения

1. Установите на форме следующие объекты и измените им свойства:

Объект	Свойство	Значение
Рамки	Caption	Нажата клавиша
	Caption	Код клавиши
Метки	Name	LblKey
	Name	LblCode

2. Приведите свою форму в соответствие с образцом

3. В окне кода процедуры обработки события Loadдля объектаFormнабрать

Form1.KeyPreview = True

4. В окне кода процедуры обработки события KeyPressдля объектаFormнабрать

LblKey.Caption = Chr(KeyAscii)

LblCode.Caption = KeyAscii

5. Проверить работу программы

6. Добавьте на форму еще одну рамку и метку (LblKeyCode)

7. В окне кода процедуры обработки события KeyDownдля объектаFormнабрать

LblKeyCode.Caption = "Нажата клавиша с кодом " + Str(KeyCode)

8. В окне кода процедуры обработки события KeyUpдля объектаFormнабрать

LblKeyCode.Caption = "Отпущена клавиша с кодом " + Str(KeyCode)

9. Проверьте работу программы