Показать сообщение отдельно
  #10  
Старый 07.02.2014, 11:20
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

замени:
Код:
 for i := 0 to TreeView1.Items.Count-1 do
на:
Код:
 for i := 0 to TreeView_GetCount(TreeView1.Handle)-1 do
в uses добавь CommCtrl.
либо на:
Код:
  TreeView1.HandleNeeded;
 for i := 0 to TreeView1.Items.Count-1 do

при вызове "Сменить пользователя" и вход им же (всего один пользователь на компьютере) эффекта не наблюдается. но код:
Код:
  TreeView1.Parent:=nil;
  TreeView1.Parent:=Self;
вызывает эффект. приведенные выше изменения решили проблему. косяк в VCL.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием