Leaderboard

Is the question still relevant? I forgot to attach the solution procedure TMainForm.UniFormCreate(Sender: TObject); begin UniPanel1.JSInterface.JSAddListener('boxready', 'function(me){if (me.dd) {me.dd.startDrag = function(){'+ UniDBHTMLMemo1.JSName +'.bodyEl.setStyle("pointer-events", "none")}}}' ); end; procedure TMainForm.UniPanel1EndDrag(Sender: TUniControl; Left, Top: Integer); begin UniDBHTMLMemo1.JSInterface.JSCode(#1'.bodyEl.setStyle("pointer-events", "auto");'); end;