Проблемы с TreeView

← →
rrer (2003-04-11 13:34) [0]

В Treeview необходимо при щелчке заменять картинку на другую.Сам treeView связан с imagelist-ом через cd-во images.ImageList содержит две картинки.
Я пишу:

procedure TForm1.TreeView1Click(Sender: TObject);
begin
TreeView1.Items.Item[TreeView1.Selected.Index].ImageIndex:=1;
end;

Картитнка заменяется,но только при переходе на другой пункт.Т.е. идет замена с обозданием на один щелчок (например:я кликнул на пункт 4,затем на 5.Только после щелчка на пукт 5 у 4 изменилась картинка,как будто бы я кликнул на него).Скажите как это исправить или как вообще сделать изменение картинки?

← →
Roma © (2003-04-11 13:45) [1]

Ты разницу между ImageIndex и SelectedIndex не понимаешь, очевидно... Когда ты кликаешь на TreeItem, отображается не ImageIndex, а SelectedIndex...

← →
Digitman © (2003-04-11 13:47) [2]

SelectedIndex остался прежним ... равный прежнему ImageIndex

Description

Use the SelectedIndex property to specify an image to display when the tree node is selected.

← →
rrer (2003-04-11 14:08) [3]

Ну хорошо...так как сделатть то?

Здесь даже динамика не нужна. Пропиши прямо в редакторе свойств
ImageIndex := 0; SelectedIndex := 1
и усё!

procedure TForm1.TreeView1GetImageIndex(Sender: TObject; Node: TTreeNode);
begin
if Node.Level=0
then Node.ImageIndex:=18
else Node.ImageIndex:=19;
end;

procedure TForm1.TreeView1GetSelectedIndex(Sender: TObject;
Node: TTreeNode);
begin
if Node.Level=0
then Node.ImageIndex:=30
else Node.ImageIndex:=19;
end;

Проблемы с TreeView Найти похожие ветки