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