Поймать MouseLeft на списке.

[kreator]

Надо написать маленькую главку в "Энциклопедию Костылей".
С11.0.13401. Есть броуз. Нужно по нажатию левой клавиши мыши сделать некие действия, далее программа должна работать как обычно. Проблема вот в чём. Событие NewSelection на броузе срабатывает при отпускании клавиши мыши. Ставлю на списке "Алерт". В "Преалерт" делаю свои действия и отправляю cycle'ом далее. Но селект на запись броуза срабатывает не всегда. То срабатывает, то не срабатывает. Что подправить? Куда костыль подставить?

[gopstop2007]

если костыль, то BRWx.UpdateViewRecord и после своих действий - BRWx.ResetFromBuffer )

[morkovin]

Попробуй так:

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

!Browse Embed: TakeNewSelection (2600)
IF SELF.ILC.GetControl(){PROPLIST:MouseDownRow} <> 0 AND SELF.ILC.GetControl(){PROPLIST:MouseDownZone}=LISTZONE:Field
  SELF.UpdateBuffer
  xQueueFieldNo# = SELF.ILC.GetControl(){PROPLIST:FieldNo,SELF.ILC.GetControl(){PROPLIST:MouseDownField}}
    xField"        = UPPER(CLIP(WHO(Queue:Browse,xQueueFieldNo#)))
    MESSAGE(xField",'test')
END

[morkovin]

по нажатию левой клавиши мыши

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

!Browse Embed: TakeNewSelection (2600)
IF SELF.ILC.GetControl(){PROPLIST:MouseDownField} <> 0 AND SELF.ILC.GetControl(){PROPLIST:MouseDownZone}=LISTZONE:Field
  SELF.UpdateBuffer
  xQueueFieldNo# = SELF.ILC.GetControl(){PROPLIST:FieldNo,SELF.ILC.GetControl(){PROPLIST:MouseDownField}}
    xField"        = UPPER(CLIP(WHO(Queue:Browse,xQueueFieldNo#)))
    IF KeyCode() = MouseLeft  !alert MouseLeft
        MESSAGE(xField",'test')
    END
 END

[kreator]

Я, конечно, попробую завтра на работе. Но что-то сомневаюсь. Событие NewSelection не срабатывает, до класса, думаю, тем более не дойдёт. Повторю - нужно отловить не клик, а именно нажатие. Пользователь нажал левую клавишу мыши и её не отпускает.

[Дед Пахом]

надо просто обработать сообщение WM_LBUTTONDOWN.

[kreator]

В "Энциклопедии костылей" нет места для WinAPI.