Порблема с SHelltreeview

[VenMaster]

компонент Shelltreeview у меня отображает содержимое выбранной папки. А так же есть функция создания в этой папке новой папки. И после создания эта папка должна быть селект. Но ее можно увидеть только после очередного запуска программы.
Shelltreeview.update не помогает????????

Код добавления папки:
if edit1.Text='' then showmessage('Поле не заполнено!') else
begin
sysutils.CreateDir(extractfilepath( application.exename)+'Temes\Темы\'+ edit1.text);
Form1.ShellTreeView1.Path:=(extract filepath(application.exename)+'Teme s\Темы\')+edit1.Text;
fnewteme.Close;

[Stilet]

AutoRefresh в true стоит?
Кстати и про ShellTreeView1.Refresh не забываем

[VenMaster]

Все работает, если не использовать эту строку
Form1.ShellTreeView1.Path:=(extract filepath(application.exename)+'Teme s\Темы\')+edit1.Text;
Но мне надо чтоб происходил селект созданной папки. Есть предложения??

[Stilet]

Есть предложения??

В свое время я напоролся на кучу багов в этом ShellTreeView. Плюнул на него сделал свой с нуля быстрее и удобнее получилось.

[VenMaster]

Сообщение от Stilet

В свое время я напоролся на кучу багов в этом ShellTreeView. Плюнул на него сделал свой с нуля быстрее и удобнее получилось.

С нуля делать у меня еще больше проблем возникло.
А у тебя не осталось исходника своего???

[Stilet]

Ну почему же. Есть, мы его с подругой разрабатывали вместе только туда еще модуль нужен особый, а у меня его не осталось
сам компонент прилагаю

Здесь:
normdir - добавляет \ в конец строки если еготам нет
at - типа крутого PosEx
GetExt - ExtraxtFileExt
CopyAs - навороченная Copy

[VenMaster]

Stilet СПС, попробую разобраться