フォルダブラウザダイアログ
祖先 - なし
詳細
[フォルダを開く] ダイアログを使用して、エンドユーザーがフォルダを選択できるようにします。
例
[フォルダを開く] ダイアログを使用する。
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
プロパティ
名前 |
記述 |
コンピューター用参照 |
|
プリンター用参照 |
|
ブラウザ記述 |
|
現在のフォルダ |
|
フォルダイメージ |
|
現在のフォルダ名 |
|
ファイルシステムフォルダのみ表示 |
メソッド
名前 |
記述 |
ダイアログを表示 FormOwner, OKPressed |