Повторный запуск формы

Пример, показывающий как легко предотвратить запуск одной и той же формы два раза не делая форму модальной.
Вставьте приведенный код в событие Init формы: [code] LOCAL i, lcWindName, llRetVal llRetVal = .T. i = 0 lcWindName = WCHILD("",0) && The "" must be a NULL or empty string DO WHILE !EMPTY(lcWindName) IF lcWindName = UPPER(this.name) i = i + 1 IF i > 1 llRetVal = .F. EXIT ENDIF ENDIF lcWindName = WCHILD("",1) && The "" must be a NULL or empty string ENDDO RETURN llRetVal [/code]
Автор: KB

Автор публикации

не в сети 18 часов

Joys

Комментарии: 3Публикации: 173Регистрация: 25-06-2000
Материалы по теме
Авторизация
*
*
Генерация пароля