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

---

文件选择对话框

---

显示文件选择对话框

以下介绍文件选择对话框的用法。通过便利的popup函数，使用文件选择对话框。

[文件选择对话框]

popup函数，不仅用于显示对话框，还可以用函数返回操作者选择确认和解除等的结果。 因此，虽然叫函数，却能实现对话框的显示，以及取得对话框结束时的选择结果。 以下是使用文件选择对话框和消息对话框的范例程序。

(*----------------------------------------------------------*)
(*Function for the event procedure                          *)
(*----------------------------------------------------------*)
open Swig
open Mwt
open Mwtlib

let btnep2 obj =
  (* 访问文件选择对话框实例 *)
  let fs = _WSGIappFileSelect '() in                           (* A *)
  fs->setProperty("maskFileName","ml");                        (* B *)
  fs->setProperty("defaultPosition",_True);                    (* C *)
  let ret = fs->popup() in                                     (* D *)
  (* 获得消息对话框实例 *)
  let msg = _WSGIappMessageDialog '() in                       (* E *)
  msg->setProperty("width",500);                               (* F *)
  msg->setProperty("height",120);                              (* G *)
  msg->setProperty("defaultPosition",_True);                   (* H *)
  if get_int ret = get_int _WS_DIALOG_OK then begin            (* I *)
    let str = get_string(fs->getFileName()) + " 被选择。" in
    ignore(msg->setProperty("labelString",(make_string(str))));
    ignore(msg->popup());
  end else
  if get_int ret = get_int _WS_DIALOG_NO then begin            (* J *)
    ignore(msg->setProperty("labelString","未被选择。"));
    ignore(msg->popup());
  end else
  if get_int ret = get_int _WS_DIALOG_CANCEL then begin        (* K *)
    ignore(msg->setProperty("labelString","被取消选择。"));
    ignore(msg->popup());
  end;

  ()
let _ = Callback.register "btnep2" btnep2

(A)通过访问全局实例函数，访问文件选择对话框全局实例。 在文件选择对话框等类中，预先都备有1个全局实例。 可以通过访问全局实例函数进行访问。

(B)，(C)处设置属性，并在(D)处将对话框变为显示状态。 当对话框被选择时，popup函数将返回。

使用消息对话框显示文件选择对话框的选择结果。 在(E)，(F)，(G)，(H)处，取得消息对话框的全局实例，并设定其属性。

(I)处，通过消息字符串显示被选择的文件。 (J)处，显示没有文件被选择的消息字符串。 (K)处，显示已被解除的消息字符串。