Запрет повторного запуска процедуры из фрейма.

[Yufil]

Надо весь комплект скачать http://www.authord.com/products/Clarion/, а я выложил только один файл.
Кстати, там много хороших вещей и потратить хотя бы часик-другой стоит

[Артур]

Спасибо, скачал, буду пробовать

[Артур]

SetTarget(, Procname_thread)

Перед этим вставил post(EVENT:LoseFocus,,) и все заработало без шаблона.
Есть ли примеры с применением FreeABC ?

[kreator]

Перед этим вставил post(EVENT:LoseFocus,,) и все заработало без шаблона.

Я не понял - почему приведённый мной текст не работает?

[Артур]

Я не понял - почему приведённый мной текст не работает?

У меня не работает потому что он ориентирован на использование шаблона, который я так и не смог установить

[kreator]

Это просто текст. Нужно заменить переменные шаблона на свои.

[Артур]

vs::ThisThreadActive

Непонятен смысл этой переменной, т.к. она объявляется где то в шаблоне.
Все равно нужен post(EVENT:LoseFocus,,), т.к. без него не срабатывает POST(EVENT:GainFocus,,ActiveThread:Preferences).

[Yufil]

В шаблоне в обработчик Event:GainFocus вставляется вытаскивание окна вперёд.

[Артур]

В шаблоне в обработчик Event:GainFocus вставляется вытаскивание окна вперёд.

Наверное, но я шаблон так и не победил.

[kreator]

В шаблоне в обработчик Event:GainFocus вставляется вытаскивание окна вперёд.

Да, есть такое дело:

Код: Выделить всё

    OF EVENT:GainFocus
      IF SELF.Opened                                       ! ThreadLimit (ABC Free)
         IF window{PROP:Iconize}=TRUE                      ! ThreadLimit (ABC Free)
           window{PROP:Iconize}=FALSE ! Restore if iconized ! ThreadLimit (ABC Free)
         END                                               ! ThreadLimit (ABC Free)
         IF window{PROP:Active}<>TRUE                      ! ThreadLimit (ABC Free)
            window{PROP:Active}=TRUE ! Bring to top        ! ThreadLimit (ABC Free)
         END                                               ! ThreadLimit (ABC Free)
      END                                                  ! ThreadLimit (ABC Free)