Ydin
Если никто не ответит быстро, через таймер сделаю.

akvvohinc
А ведь в Help о функции MDOWN() написано, что она включена лишь для обратной совместимости, но получается, что MouseDown и MouseUp, которые вроде как пришли ей на смену работают не везде, где работает MDOWN().

Цитата:

Через таймер не все так просто. Тут, похоже, серьезная и неожиданная проблема.
Побочный эффект. Плавающий, т.е. не сразу на него попадаешь.
Таймер отрабатывает, все нормально, но вдруг форма (размеры) начинает меняться от движения мышки.
Т.е. мы уже про ресайз забыли, т.к. отпустили мышь...
А мышь отжатая на движении рулит размерами.

oForm = Createobject('myForm')
oForm.Show(1)

DEFINE CLASS myForm AS Form
    ADD OBJECT timer1 AS mytimer

    PROCEDURE resize
        IF this.timer1.interval=0
            this.timer1.interval = 500
            WAIT WINDOW 'Нажали мышь.' NOWAIT
        ENDIF
    ENDPROC
ENDDEFINE

DEFINE CLASS mytimer AS timer
    PROCEDURE timer
        IF !MDOWN()
            this.Interval=0
            WAIT WINDOW 'Отпустили мышь.' NOWAIT
        ENDIF
    ENDPROC
ENDDEFINE

akvvohinc
Нужен код, чтобы подумать и попробовать.
Не помню, чтобы у меня такое случалось.

Но в принципе "отжатая мышь", меняющая или перемещающая окна, - такое помню, но это не обязательно случалось при работе в Фоксе.
Думаю, у меня это была не программная вещь, а "железная".

Оригинальный код мне искать не хочется, но, думаю, он не сильно отличался от чего-то подобного:

            WAIT WINDOW 'Отпустили мышь.' NOWAIT

Я его немного потыкал - никаких "побочных эффектов" сходу обнаружить не удалось.
Надо подумать, может ли что случиться, если юзер успеет отпустить и снова нажать мышь внутри временного интервала таймера.
С кодом выше ничего плохого, как мне кажется, случиться не должно, но посмотри, что у тебя, увеличив интервал до нескольких секунд.

PS
А если под "побочным эффектом" понимать глюк Фокса, то в него я не верю.

Ydin
Побочный эффект. Плавающий, т.е. не сразу на него попадаешь.
Таймер отрабатывает, все нормально, но вдруг форма (размеры) начинает меняться от движения мышки.
Т.е. мы уже про ресайз забыли, т.к. отпустили мышь...
А мышь отжатая на движении рулит размерами.

leonid
Думаю, это проблема вовсе не фокса. Я подобные эффекты неоднократно видел в Eclipse. Происходит это когда во время операции drag and drop Eclipse автоматически открывает какое-нибудь модальное окно (есть у него такая привычка), а потом автоматически закрывает его. Так вот, если отпустить кнопку мышки, когда открыто это окно, то сoбытие MOUSE UP будет передано этому окну, а когда оно закроется, drag and drop будет продолжать работать при отпущенной кнопке мышки, поскольку окно, в котором происходит drag and drop событие MOUSE UP не получало.

of63
Плюснул. Хорошая деталь фокса. Причем "событие" (вот этот BINDevent) исполняется как подпрограмма в ОТДЕЛЬНОМ (кстати, надо посмотреть при случае стек вызовов в "прерывании" в фоксовой проге) командном счетчике команда фокса (видно, что фоксисты что-то думали про "прерывания"... молодцы)

"событие" (вот этот BINDevent) исполняется как подпрограмма в ОТДЕЛЬНОМ ...

 фоксисты что-то думали про "прерывания ..."

Ydin
В теме "Изменение высоты", но этот BINDEVENT и для ширины