ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Получение фокуса приложением фокса
5 сообщений из 5, страница 1 из 1
Получение фокуса приложением фокса
    #34422392
shanton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
shanton
Участник
Подскажите пожалуйста, какой метод срабатывает когда переключаешся с одного приложения на открытое приложение фокса (на панели задач, просто клац-клац между приложениями)? В фокс-приложении открыта форма. Думал Active на форме, проверил - чёто не срабатывает.
Зарание спасибо!
...
Рейтинг: 0 / 0
28.03.2007, 16:37
| Ответить | Цитировать | Написать  
Получение фокуса приложением фокса
    #34422607
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex11100
Гость
и такая буква есть

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
#define WM_ACTIVATE				0x0006

public oБубен

oБубен=createobject('Бубен')


bindevent(_vfp.hWnd,WM_ACTIVATE,oБубен,'звоночек')
on shutdown do myexit
read events

procedure myexit
	on shutdown 
	quit
endproc 
 
define class Бубен as Custom
    procedure звоночек
    	lparameters hWnd, ;
					Msg, ;
					wParam, ;
					lParam
        messagebox('ffff')
enddefine

дошлифуй напильником, удачи
...
Рейтинг: 0 / 0
28.03.2007, 17:23
| Ответить | Цитировать | Написать  
Получение фокуса приложением фокса
    #34422609
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex11100
Гость
да, забыл, это только для вфп 9
...
Рейтинг: 0 / 0
28.03.2007, 17:24
| Ответить | Цитировать | Написать  
Получение фокуса приложением фокса
    #34422665
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex11100
Гость
2-я серия

почти дошлифованная


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
#define WM_ACTIVATE				0x0006
#define WA_INACTIVE				 0 
#define WA_ACTIVE				 1 
#define WA_CLICKACTIVE			 2 

public oБубен

oБубен=createobject('Бубен')


bindevent(_vfp.hWnd,WM_ACTIVATE,oБубен,'звоночек', 4 )
on shutdown do myexit
read events

procedure myexit
	on shutdown 
	quit
endproc 
 
define class Бубен as Custom
    procedure звоночек
    	lparameters hWnd, ;
					Msg, ;
					wParam, ;
					lParam
		if Msg = WM_ACTIVATE
			do case
				case wParam = WA_INACTIVE
					 wait window nowait 'деактивировали'
				case wParam = WA_ACTIVE
					 wait window nowait 'активировали'
			endcase
        endif
enddefine
...
Рейтинг: 0 / 0
28.03.2007, 17:38
| Ответить | Цитировать | Написать  
Получение фокуса приложением фокса
    #34422679
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex11100
Гость
собранное приложение для 9-ки сп2
...
Рейтинг: 0 / 0
28.03.2007, 17:41
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Получение фокуса приложением фокса
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?desktop=1&fid=41&tid=1589635]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 65ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 2ms
others: 198ms
total:  342ms
созд. / загр.: 342ms
x
x
Закрыть


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