FoxPro Club Главная

Конференция Решения Фотоальбом Сайт М.Дроздова Статьи Файловый архив Книга Visual FoxPro 9.0 Русский Help для Visual FoxPro
Пользователей: 9239
Вход
Повторный запуск формы

Пример, показывающий как легко предотвратить запуск одной и той же формы два раза не делая форму модальной.


 
Прислал: KB   Категория: Интерфейс


Вставьте приведенный код в событие Init формы:
  
  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   
  

 
Сделайте оценку этого решения Плохо Удовлетворительно Так себе Хорошо Отлично Текущая оценка: (4.94)
Дополнения пользователей
Повторный запуск формы
[+][?]
ВладимирМ
27.03.01 09:41:24

А ты не рассматривал использование функции WEXIST()?
[Дополнить]



© 2000-2017 Fox Club 
При размещении любых материалов с сайта на других ресурсах- прямая ссылка на www.foxclub.ru обязательна
Яндекс.Метрика