|
![]() |
#1 |
Участник
|
Можно сделать выбор foldera разместив shell-объекты в модальной форме:
на OnAssistEdit - примерно так (взял из 2.6) CLEAR(PhantomForm); //PhantomForm-> "Phantom Folder Browser" PhantomForm.SetFolder("Folder Name"); IF PhantomForm.RUNMODAL = ACTION::Close THEN BEGIN IF STRLEN(PhantomForm.GetFolder) <> 0 THEN "Folder Name" := PhantomForm.GetFolder; CurrForm.UPDATE; END; CLEAR(PhantomForm); [attachment=247:attachment] |
|