Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Обработка _Screen.resize без Bindevent / 7 сообщений из 7, страница 1 из 1
24.06.2005, 14:45
    #33133616
Samvel
Samvel
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработка _Screen.resize без Bindevent
У меня все обьекты собраны на _Screen.
Можно ли захватить событие _Screen.resize, если нет, то с каким обьектом связать это событие?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2005, 16:39
    #33133993
Дмитрий Петров
Дмитрий Петров
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработка _Screen.resize без Bindevent
_Screen.AddObject("Hook","ScrRes")
Define CLASS ScrRes as Custom
oScreen=_Screen
Procedure oScreen.Resize
WAIT WINDOW 'Ресайз..' nowa

Endproc
Enddefine


Запустите и подергайте за скрин ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2005, 16:45
    #33134007
Дмитрий Петров
Дмитрий Петров
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработка _Screen.resize без Bindevent
_Screen.AddObject("Hook","ScrRes")
Define CLASS ScrRes as Custom
oScreen=_Screen
Procedure oScreen.Resize
WAIT WINDOW 'Ресайз..' nowa

Endproc
Enddefine


Запустите и подергайте за скрин ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2005, 21:29
    #33134387
Samvel
Samvel
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработка _Screen.resize без Bindevent
Спасибо большое. А я добавлял невидимую форму. Наверно твой пример лучше.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2005, 23:46
    #33135044
Igor Korolyov
Igor Korolyov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработка _Screen.resize без Bindevent
Hi Samvel!

Он конечно перестал работать в VFP8 - но там уже есть bindevents ;)

Posted via ActualForum NNTP Server 1.2
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
23.06.2010, 10:28
    #36702432
Alexandr29
Alexandr29
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработка _Screen.resize без Bindevent
У меня похожая задача, но на четвертой строчке кода
выдаёт ошибку "Неизвестный элемент oScreen"
использую VFP 9

и все таки как захватить событие _Screen.resize?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.06.2010, 11:01
    #36702590
прошелмимо
прошелмимо
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработка _Screen.resize без Bindevent
примерно так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
_Screen.AddObject("Hook","myHook")
BindEvent(_screen,"resize",_screen.Hook,"ShowResize")


Define CLASS myHook as Custom
	Procedure ShowResize
		WAIT WINDOW 'Ресайз..' nowa
	Endproc
Enddefine
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Обработка _Screen.resize без Bindevent / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]