如何使用js_of_ocaml添加onclick方法？

Question

嗨，假设我有一个id form-submit的按钮，并且我的OCaml文件中有以下函数：

let () =
   let form_submit = Dom_html.getElementById "form-submit" in
   ...

向按钮添加on_click方法的正确方法是什么？我应该这样做吗？

  form_submit##onclick <- ...

但是处理程序函数的类型是什么呢？我在文件里找不到。

Answer 1

您可以手动使用dom的东西，但不太方便。正确的方法是使用Lwt_js_events模块来构建使用Lwt的事件处理程序的抽象。

下面是一个很小的例子：

Lwt.async (fun () ->
  Lwt_js_events.clicks form_submit
    (fun _ev _thread -> Lwt.return () )
  )

第一个参数是事件对象，第二个参数是循环线程。您可以在开始时使用一般构造来很好地调整处理程序的行为。

在这里，Lwt.async确保处理程序在“良好时”(在本例中，是在启动lwt调度器时)到位。与其忽略结果，不如使用它，因为它确保了适当的调度。