FolderBrowserクラス (PRIM_APPL.ICommonDialogFolderBrowse)

祖先 - なし

詳細

[フォルダを開く] ダイアログを使用して、エンドユーザーがフォルダを選択できるようにします。

例

[フォルダを開く] ダイアログを使用する。

     Function Options(*DIRECT)
     Begin_Com Role(*EXTENDS #PRIM_FORM) Theme(#SYS_THEME<2015Blue>) Clientwidth(551) Clientheight(301) Left(165) Top(204) Width(567) 

        Define_Com Class(#PRIM_PHBN) Name(#Pick) Caption('Pick a Folder') Displayposition(1) Left(16) Parent(#COM_OWNER) Tabposition(1) Top(16) Width(129) 

        Evtroutine Handling(#Pick.Click) 

           #Com_owner.PickaFile 

        Endroutine 

        Mthroutine Name(PickaFile) 

           Define_Com Class(#Prim_appl.ICommonDialogFolderBrowse) Name(#FileOpen) Reference(*Dynamic) 

           #FileOpen <= #sys_appln.CreateFolderBrowseDialog 

           If (#FileOpen.Show) 
          
              #Com_owner.Caption := #FileOpen.Folder 

           Endif 

        Endroutine 

     End_Com

プロパティ

メソッド

参照

すべてのコンポーネント クラス
テクニカルリファレンス