|
Можно сделать выбор 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]
|