TreeViewの選択したラインのImageが変わってしまう

解決

豆頁 2011-05-08 22:32:29 No: 40512

Form1にTreeView1とImageList1を貼り付け、ImageListには１６ｘ１６のBitmapが２枚登録してあります。

下手なコードで申し訳ありませんが、

procedure  TForm1.FormCreate(Sender: TObject);
var
  i:  integer;
  MyTreeNode1:  TTreeNode;
begin

  for i:=0 to 36 do
  begin
     with TreeView1.Items do
     begin

MyTreeNode1 := Add(nil, 'TreeNode：' +IntToStr(i));
if i=5 then MyTreeNode1.ImageIndex := 1;

end;

とすると、６番目のアイテムだけ、イメージが１になります。

ところが、コンパイルして６行目を選択するとイメージが０に反転（？）してしまいます。

TreeViewはNodeの親子関係があったりとか、素人的に困惑しています。
どちら様か、ご教授ください。

あ 2011-05-08 23:42:48 No: 40513

設定すべきイメージのインデックスは３つある。
とりあえずTreeViewをフォームに一つ貼り付けて、ダブルクリックして
ノードの追加画面を眺めてみましょう。
すぐに言ってることが分かると思います。

豆頁 2011-05-09 10:42:26 No: 40514

選択時インデックス、ですね？

コード上では、MyTreeNode1.SelectedIndexに設定することでうまくいきました。

どうも、ありがとうございます。