Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Использование буфера обмена (объект Clipboard)
SetText записывает копию текста в буфер обмена GetText возвращает копию текста из буфера обмена SetData записывает копию выбранного рисунка в буфер обмена GetData возвращает содержимое буфера обмена (копию рисунка) GetFormat определяет, является содержимое буфера обмена текстовым или графическим Clear стирает содержимое буфера обмена
События клавиатуры и мышки
Событием называется характеристика класса объектов, описывающая внешнее воздействие, на которое реагирует объект этого класса во время работы приложения.
События, возникающие при работе с мышью
События, возникающие при работе с клавиатурой
События, связанные с фокусом
Объект, имеющий фокус, может получать вводимую пользователем информацию с помощью мыши и клавиатуры.
Лабораторно-практические работы ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 1 Тема: События мышки Цель: Получить навыки использования событий MouseMove Порядок выполнения 10. Установите на форме следующие объекты и измените им свойства:
11. В окне кода процедуры обработки события MouseMove для объекта Form набрать Form1.Caption = " Координаты курсора " + Str(X) + " " + Str(Y) If Button = 0 Then Label1.Caption = " Движение мышки по форме" End If If Button = 1 Then Label1.Caption = " Движение мышки по форме, нажата левая кнопка мышки" End If If Button = 2 Then Label1.Caption = " Движение мышки по форме, нажата правая кнопка мышки" End If If Shift = 1 Then Label1.Caption = " Движение мышки по форме, нажата Shift" End If If Shift = 2 Then Label1.Caption = " Движение мышки по форме, нажата Ctrl" End If If Shift = 4 Then If Shift = 1 Then Label1.Caption = " Движение мышки по форме, нажата Shift" End If End If 12. В окне кода процедуры обработки события MouseMove для объекта Label1 набрать Label1.Caption = " Движение мышки по метке" 13. Проверьте работу программы
|