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

Пример, показывающий как легко предотвратить запуск одной и той же формы два раза не делая форму модальной.
Вставьте приведенный код в событие 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

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

не в сети 4 месяца

Joys

2
Комментарии: 4Публикации: 227Регистрация: 25-06-2000
0
Оставить комментарий
Авторизация
*
*
Регистрация
*
*
*
Пароль не введен
*
Генерация пароля