Folder Browser クラス (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
| 名前 | 記述 |
|---|---|
| BrowseForComputers | コンピューター用参照 |
| BrowseForPrinters | プリンター用参照 |
| Description | ブラウザ記述 |
| Folder | 現在のフォルダ |
| FolderImage | フォルダ イメージ |
| FolderName | 現在のフォルダ名 |
| ReturnOnlyFSDir | ファイル システム フォルダのみ表示 |
| 名前 | 記述 |
|---|---|
| Show | ダイアログを表示
FormOwner, OKPressed |
2018 - V14SP1