WideStudio/MWT Programming Guide	WideStudio/MWT Index Table of contents

---

获取父对象

---

获取父对象

通过getParent()成员函数获得父对象。

let event_procedure obj =
  (* 获取父对象               *)
  let parent = obj -> getParent ()
  (* 访问父对象               *)
  in parent -> "setVisible" ( _False );
  ()
let _ = Callback.register "event_procedure" event_procedure
end

获得父对象obj，并将其显示属性设置为不可见。

---

获取应用程序置顶窗口

通过getParentWindow()成员函数获得应用程序置顶窗口。

let event_procedure obj =
  (* 获得应用程序置顶窗口   *)
  let win = obj -> getParentWindow ()
  (* 访问应用程序置顶窗口 *)
  in win -> setVisible ( (get_int _False) );
  ()
let _ = Callback.register "event_procedure" event_procedure

获得应用程序置顶窗口对象obj，并将其显示属性设置为不可见。