[BProg]

Доброго всем времени суток!
Столкнулся с такой проблемой. Если дерево TTreeView невидимо, после выполнения смены пользователя Windows (не завершение сеанса) к элементам дерева невозможно обратиться программно.
Вот весь код тестового приложения:

Код:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls;

type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    cbVisible: TCheckBox;
    Button1: TButton;
    procedure cbVisibleClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 i:Integer;
 S:String;
begin
 for i := 0 to TreeView1.Items.Count-1 do
   S:=S+#13+TreeView1.Items[i].Text;
 ShowMessage(S);
end;

procedure TForm1.cbVisibleClick(Sender: TObject);
begin
TreeView1.Visible:=cbVisible.Checked;
end;

end.

Узлы дерева добавлены в визуале.
Делаю так:
1. дерево невидимым (чекбокс)
2. смена пользователя и можно, не меняя, вернуться в эту же учетку
3. кнопка - пустое сообщение

Если сделать то же самое с видимым деревом, то все нормально.
Возможно, как-то Windows память пытается оптимизировать? Не знаю, подскажите, пожалуйста, что м.б.
Спасибо!
TreeTest.rar

[Alegun]

Попробуйте в OnShow формы выполнить treeview1.realign или refresh

[BProg]

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

Попробуйте в OnShow формы выполнить treeview1.realign или refresh

Нет, не помогает.
На скринах: 1 - После смены пользователя с невидимым
2 - После включения Visible

11111.png
22222.png

[Alegun]

Это был плохой совет.

А если поставить птису в чекбокс при входе "невидимкой", инфа восстанавливается?

[BProg]

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

Это был плохой совет.

А если поставить птису в чекбокс при входе "невидимкой", инфа восстанавливается?

Да, как становится видимой, так все нормально

[Alegun]

Может тогда надо repaint (или просто банальный setfocus) в onshow делать, хотя у невидимого компонента это вероятно вызовет и ошибку

[poli-smen]

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

Доброго всем времени суток!
Столкнулся с такой проблемой. Если дерево TTreeView невидимо, после выполнения смены пользователя Windows (не завершение сеанса) к элементам дерева невозможно обратиться программно.

К сожалению у стандартных компонентов TTreeView, TListView (и некоторых других) такой глюк имеется. Причём не обязательно делать смену пользователя - достаточно переместить (программно) эти компоненты на невидимый контейнер (например панель) или даже просто в никуда (т.е. Parent:=nil).

Как вариант могу предложить попробовать привыкнуть к компоненту Virtual Treeview - я с ним уже долго работаю, но так до конца не смог привыкнуть, хотя некоторые говорят что он наоборот удобнее чем стандартный TTreeView.

[BProg]

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

Может тогда надо repaint (или просто банальный setfocus) в onshow делать, хотя у невидимого компонента это вероятно вызовет и ошибку

Нет, это не помогает

[BProg]

Сообщение от poli-smen

К сожалению у стандартных компонентов TTreeView, TListView (и некоторых других) такой глюк имеется. Причём не обязательно делать смену пользователя - достаточно переместить (программно) эти компоненты на невидимый контейнер (например панель) или даже просто в никуда (т.е. Parent:=nil).

Как вариант могу предложить попробовать привыкнуть к компоненту Virtual Treeview - я с ним уже долго работаю, но так до конца не смог привыкнуть, хотя некоторые говорят что он наоборот удобнее чем стандартный TTreeView.

Спасибо. Интересно, и давно такой глюк тянется, с каких версий, на 7-ке он тоже есть? Было где-нибудь обсуждение этой темы?
Нет, сторонние не могу скорее всего использовать. Наверное придется переписать на что-то другое.

[poli-smen]

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

Спасибо. Интересно, и давно такой глюк тянется, с каких версий, на 7-ке он тоже есть? Было где-нибудь обсуждение этой темы?

В Windows7 такой глюк тоже имеется - проверил. Похоже Microsoft не спешит его исправлять, а возможно даже и не будут, так сказать в целях совместимости. Хотя ещё нужно конечно проверить на Windows8. Этот глюк я обнаружил при написании одного модуля (показывающего содержимое любой панели в виде отдельного окна, а потом опять прячущего его в панель на форме). Обсуждений в интернете по этому поводу не видел.

UPD
Я же помню что как-то обходил этот глюк. Только что просмотрел свои старые проекты и в одном из них я использовал метод HandleNeeded, после которого все элементы опять становились доступными.

[NumLock]

замени:

Код:

 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.

[BProg]

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

вызывает эффект. приведенные выше изменения решили проблему. косяк в VCL.

Да, действительно, работает. А не знаете как давно в VCL такой глюк и что происходит с ним при той же смене пользователя?

[NumLock]

впервые о такой бяке узнал из этой темы как уже писал выше, при смене пользователя у меня такого не возникает, а вот при удалении и восстановлении родителя проблема вылезла. можно покопаться в исходниках дерева и поискать проблему. будет время...

[BProg]

Всем большое спасибо за помощь!