Вверх ↑
Ответов: 198
Рейтинг: 2
#1: 2013-11-19 13:41:19 ЛС | профиль | цитата
Леонид, Tad, Благодарю! Сделал через таймер, все пашет.
------------ Дoбавленo в 13.41:
95.57.188.169.megaline.te писал(а):
можешь небольшой пример показать, а то что то я мудрю ничего не выходит.

Какой тут пример? Просто назначь папку корневой, многие приложения такое требуют


Add(MainForm,2953706,63,154)
{
Height=150
}
Add(Edit,7088737,280,210)
{
Left=45
Top=40
Width=220
Text=""
}
Add(Dir,6888796,280,273)
{
Point(Dir)
link(Dir,7088737:Text,[])
}
Add(Button,2288279,224,280)
{
Left=120
Top=65
Width=150
Caption="Сделать корневой"
link(onClick,6888796:doCurrentDir,[])
}
Add(Label,11830369,168,147)
{
Left=120
Top=10
Width=149
Height=17
Caption="Выберите папку:"
AutoSize=1
Alignment=2
}
Add(Button,9440135,147,210)
{
Left=275
Top=40
Width=65
Caption="Обзор"
link(onClick,12459591:doBrowse,[])
}
Add(Browse,12459591,203,210)
{
link(onBrowse,7088737:doText,[])
}

карма: 0

0