Добрый вечер! Я делаю WISYWYNG редактор на базу MSHTML. Беру все необходимые интерфейсы, связываюсь с событиями IHTMLDocumentа, но вот незадача :
мне нужно, что-бы по нажатию на элемент в браузере этот элемент перешел в состояния таскания

procedure ...OnHtmlMouseDown(Params: Pointer);

var pEvtObj    : IHTMLEventObj;
    iElem      : IHTMLElement;
    Post       : TEventType;
Begin
  Post         := TEventType(Params^);
  pEvtObj      := IHTMLEventObj(TVarData(Post.Params).VDispatch);
  iElem        := pEvtObj.srcElement;
  HTMLEventObj := pEvtObj;
  HTMLEventObj.Тащись :) ???