ЭлементУправления.Захват (Control.Capture) Свойство

Использование

Чтение и запись.

Значение

Тип: Булево.

Возвращает или задает значение, указывающее, захватил ли элемент мышь.

Истина - элемент управления захватил мышь, Ложь - в противном случае.

Примечание

Пример

Сообщить("Форма1.Захват = " + Форма1.Захват  + "  " + ТекущаяУниверсальнаяДатаВМиллисекундах());
Полный пример кода 

Копировать     Выделить всё


Перем Ф, Форма1;

Процедура Форма1_ПриНажатииКнопкиМыши() Экспорт
	Сообщить("Форма1.Захват = " + Форма1.Захват  + "  " + ТекущаяУниверсальнаяДатаВМиллисекундах());
КонецПроцедуры

Процедура Кнопка1_ПриНажатииКнопкиМыши() Экспорт
	Сообщить("Форма1.Захват = " + Форма1.Захват  + "  " + ТекущаяУниверсальнаяДатаВМиллисекундах());
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

Кнопка1 = Ф.Кнопка();
Кнопка1.Родитель = Форма1;
Кнопка1.Текст = "Кнопка1";

Форма1.ПриНажатииКнопкиМыши = Ф.Действие(ЭтотОбъект, "Форма1_ПриНажатииКнопкиМыши");
Кнопка1.ПриНажатииКнопкиМыши = Ф.Действие(ЭтотОбъект, "Кнопка1_ПриНажатииКнопкиМыши");

Ф.ЗапуститьОбработкуСобытий();

Тестовый код 

Копировать     Выделить всё


Перем Ф, Форма1, Форма1_Захват1, Форма1_Захват2;

Процедура Форма1_ПриНажатииКнопкиМыши() Экспорт
	Форма1_Захват1 = Форма1.Захват;
	Форма1.Закрыть();
КонецПроцедуры

Процедура Кнопка1_ПриНажатииКнопкиМыши() Экспорт
	Форма1_Захват2 = Форма1.Захват;
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

Кнопка1 = Ф.Кнопка();
Кнопка1.Родитель = Форма1;
Кнопка1.Текст = "Кнопка1";

Форма1.ПриНажатииКнопкиМыши = Ф.Действие(ЭтотОбъект, "Форма1_ПриНажатииКнопкиМыши");
Кнопка1.ПриНажатииКнопкиМыши = Ф.Действие(ЭтотОбъект, "Кнопка1_ПриНажатииКнопкиМыши");
Ф.РазрешитьСобытия = Истина;

Если Ф.ПлатформаWin Тогда
	Курсор1 = Ф.Курсор();
	Точка1 = Форма1.Положение;
	Курсор1.Позиция = Ф.Точка(Точка1.Икс + 20, Точка1.Игрек + 40);
	Ф.НажатьКнопкуМыши(Ф.ФлагиМыши.ЛеваяВниз + Ф.ФлагиМыши.ЛеваяВверх);

	Ф.НажатьКнопкуМыши(Ф.ФлагиМыши.Переместить, 0, 50);
	Ф.НажатьКнопкуМыши(Ф.ФлагиМыши.Переместить, 10, 10);
	Ф.НажатьКнопкуМыши(Ф.ФлагиМыши.Переместить, 10, 10);
	Ф.НажатьКнопкуМыши(Ф.ФлагиМыши.ЛеваяВниз + Ф.ФлагиМыши.ЛеваяВверх);

	Ф.ЗапуститьОбработкуСобытий();

	Сообщить(?(
	Форма1_Захват1 и 
	Не Форма1_Захват2
	, "", "!!! ") + "ЭлементУправления.Захват (Control.Capture) Свойство" + " " + ТекущаяДата());
Иначе
	Сообщить(?(
	Истина
	, "", "!!! ") + "ЭлементУправления.Захват (Control.Capture) Свойство" + " " + ТекущаяДата());
КонецЕсли;

Смотрите также

ЭлементУправления (Control) Класс | Библиотека OneScriptForms