Поведение htmltreeview

[Stat_ya]

Здрасте.
Ситуация следующая, в дереве есть только узлы и дочерние первого уровня( и те, и другие с checkbox'ами). Если это не родитель, то не сворачиваю узел по клику.
В некоторые моменты происходит следующее: по клику родителя,при развернутых детях, сворачиваются дети и выбирается не тот родитель. По расположению клик был именно в том месте,но после сворачивания происходит смещение.
Как выбирать именно тот узел? сворачивать детей обязательно,если чекается родитель.

[Stilet]

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

[Stat_ya]

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

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

Естественно исходники компонента не выложу.
ну как-то так:

//на чеки событие
procedure TfrmAddAnalyses.tvAnalysesCheckBoxC lick(Sender: TObject;
Node: TTreeNode; Check: Boolean);
var pTree,pTest,anTree,inode:TTreeNode;
a,capt:string;
Data:tvChoseNodeData;
i,j:integer;
flagend:boolean;
procedure UnCheckAnalysesTree;
var i:integer;
begin
if FEmergency.Visible=true then
if FEmergency.Checked=false then
tvAnalyses.Selected.ImageIndex:=0
else tvAnalyses.Selected.ImageIndex:=1
else
tvAnalyses.Selected.ImageIndex:=0;

end;
begin
if tvAnalyses.Selected.HasChildren then
if not CheckAttr then begin
tvAnalyses.Selected.ImageIndex:=1;
exit; end;
flagend:=false;
if tvAnalyses.Selected.HasChildren then
begin
tvChoseAnalyses.BeginUpdate;
if FQuantity.Visible=false then
begin
flagend:=true;
tvAnalyses.Selected.Expanded:=not tvAnalyses.Selected.Expanded;
... //добавление узла в другое дерево поданным из этого
tvChoseAnalyses.EndUpdate;
if flagend=true then
UnCheckAnalysesTree;
if tvAnalyses.Selected.HasChildren then tvAnalyses.Selected.Selected:=false ;
end;
end;

procedure TfrmAddAnalyses.tvAnalysesExpanded( Sender: TObject;
Node: TTreeNode);
begin
if node.ImageIndex=0 then
exit;

end;

procedure TfrmAddAnalyses.tvAnalysesExpanding (Sender: TObject;
Node: TTreeNode; var AllowExpansion: Boolean);
begin
if node.ImageIndex=0 then
AllowExpansion:=false;
end;

кусочно как-то так.

[Stat_ya]

Можно закрывать или удалять. Всё решилось. Свойство AutoExpand в false. И всё чудно.