親オブジェクトを取得するには
親オブジェクトを取得するには
親オブジェクトを取得するには、メンバ関数 getParent() を利用します。
let event_procedure obj =
(* 親オブジェクトを取得 *)
let parent = obj -> getParent ()
(* 親オブジェクトにアクセス *)
in parent -> "setVisible" ( _False );
()
let _ = Callback.register "event_procedure" event_procedure
obj が配置されているの親オブジェクトを取得して、表示属性を不可にしているところです。
親アプリケーションウィンドウを取得するには
親アプリケーションウィンドウを取得するには、メンバ関数 getParentWindow() を利用します。
let event_procedure obj =
(* 親アプリケーションウィンドウを取得 *)
let win = obj -> getParentWindow ()
(* 親アプリケーションウィンドウにアクセス *)
in win -> setVisible ( (get_int _False) );
()
let _ = Callback.register "event_procedure" event_procedure
obj が配置されているの親アプリケーションウィンドウを取得して、
表示属性を不可にしているところです。
Document Release 3.80 for WideStudio ver 3.80, Jan 2005
WideStudio documents index | 目次
|
