Howto scroll TreeView all the way up after FullExpand ?

[Robby]

Hello(again),

I created a procedure that generates a large tree with is extracted from a
DB, after the generation, i give a fullexpand to see the whole tree.

The problem is that in most of the cases the tree is to large to view on
screen, this is no problem, but on a fullexpand, the component automatically
scrolls to the bottom of the tree. This is just what i dont want it to do.

Is there anny way to prevent it from doing this, without losing the ability
to scroll when it is created or is there a way to let it scroll to the top.

Thnx in Advance...

[M.H. Avegaart]

Use:

if TreeView1.Items.Count > 0 then
begin
TreeView1.Items.BeginUpdate;
try
TreeView1.FullExpand;
TreeView1.Selected := TreeView1.Items[0];
finally
TreeView1.Items.EndUpdate;
end;
end;

"Robby" <n...@spam.4me> schreef in bericht
news:8moiph$1atn$1...@buty.wanadoo.nl...