Getting/changing the ItemIndex of TWebListBox on DragOver

[Clark_John1 (Clark John)]

I am trying to implement a drag and drop to a TWebListBox control. In the OnDragOver or OnDragDrop event I would like to determine which item in the listbox the cursor is over so when the drop event occurs, I reference the desired item.

[brunofierens]

You can determine the option element the mouse is over and its index via:

procedure TForm1.WebListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var
  el: TJSElement;
begin
  el := document.elementFromPoint(x, y);
  console.log(x,y,el, TJSHTMLOptionElement(el).index);
end;

[Clark_John1 (Clark John)]

@brunofierens

 el := document.elementFromPoint(x, y);
  console.log(x,y,el, TJSHTMLOptionElement(el).index);

Worked Great. Thanks.