Погружение события onmouseup в элемент управления TWebBrowser - PullRequest
Новая
       77

Погружение события onmouseup в элемент управления TWebBrowser

0 голосов
/ 21 февраля 2020

Я хочу обработать событие OnMouseUp в элементе управления TWebBrowser. После целого дня исследований и невероятного количества проб и ошибок я каким-то образом пришел к выводу, что мне нужно:

  1. Погрузиться в событие OnDocumentComplete (или дождаться ReadyState READYSTATE_COMPLETE)
  2. Мойте тип события HTMLDocumentEvents2, так как мне не нужно, чтобы он запускался на конкретном элементе веб-страницы, а на всей странице.
  3. Понижение - это что-то вроде WB->Doc2->onmousemove = &WBMouseUp;, что является простым void WBMouseUp(); функция.

Код пока: 

void __fastcall TForm1::WB_DocumentComplete(TObject *ASender, const IDispatch *pDisp, OleVariant &URL)
    {
    WB->Doc2->onmousemove = &WBMouseUp;
    }

void WBMouseUp()
    {
    // Some test code here...
    }

Выше не работает. Я пытаюсь понять, почему.

Я использую TEmbeddedWB, но я не думаю, что это имеет большое значение.

Возможно, я на правильном пути, но пока не могу потренироваться код, который является функциональным. Любая помощь или пример приветствуются - все, что мне нужно, это толчок в правильном направлении и пример кода. Желательно в C ++, но я мог бы сделать и с Delphi в некоторой степени.

...