Если в выделенной директории уже существуют поддиректории (подпапки), то для обновления родительской директории достаточно кода

procedure TForm1.Button1Click(Sender: TObject);

begin

MkDir(ShellTreeView1.Path+Edit1.Text);

ShellTreeView1.Refresh(ShellTreeView1.Selected);//Интересующий нас код

end;

Но если в выделенной родительской директории нет  поддиректорий (подпапок) код придётся усложнить:

procedure TForm1.Button1Click(Sender: TObject);

var memtree:TTreeNode;

begin

  MkDir(ShellTreeView1.Path+Edit1.Text);

  ShellTreeView1.Refresh(ShellTreeView1.Selected);

  memtree:=ShellTreeView1.Selected;

  if ShellTreeView1.Selected.Count=0 then

  begin

    ShellTreeView1.Refresh(ShellTreeView1.Selected.Parent);

    ShellTreeView1.Refresh(memtree);

  end;

end;

Для обновления родит ... Читать дальше »

ShellTreeView1.Selected.Count

В оконных приложениях Lazarus правильно работает с русскими символами частично:

1.Операциии присваивания - Edit1.Text:='1234567890abcАБВГД';

2.Оперции сложения - Edit1.Text:='1234567890abcАБВГД'+'ИКЛМН';

3.И запись, чтение в файл:

const
ascii='1234567890abcАБВГД';

var s:string;

s:=ascii;

Writln(f,s);

Readln(f,s);

Происходят корректно, а вот функции определения длины, позиционирования, и индексирования строки с русскими символами происходят некорректно:

length(s), pos('Д',s), s[n] - где n позиция русского символа. Данные функции работают некорректно.

Для корректной работы с русскими символами, буквами нужно подключить модуль

uses lazutf8;

и использовать (вместо вышеперечисленных) функции: UTF8length(s), UTF8pos('Д',s), UTF8copy(s,n,1) - где n позиция русского символа.

Примечание: приём замены кодировки "Ре ... Читать дальше »