ImageList1有兩個圖像,index=0是西瓜,index=1是香蕉
TreeView1.images:=ImageList1
TreeView1.stateimages:=ImageList1

procedure TForm1.FormCreate(Sender: TObject);
var
iCount : integer;
aTableList : TStringList;
Node1: TTreeNode;
begin
TreeView1.Items.Clear;
ADOConnection1.Connected:=true;
aTableList := TStringList.Create;
ADOConnection1.GetTableNames(aTableList, False);//False不列印系統資料表
for iCount := 0 to aTableList.Count - 1 do // Iterate
begin
Node1:=TreeView1.Items.Add(nil,aTableList.Strings[iCount]);
Node1.ImageIndex:=0;
end;
aTableList.Free;
end;

procedure TForm1.TreeView1Click(Sender: TObject);
begin
TreeView1.Selected.ImageIndex:=1;
end;

或在
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
Node.ImageIndex:=1;
end;

有一怪現象是敲treeview節點時圖像不變當敲另一個節點時圖像才變
比如treeview1有顯示出10個表, 這10個表都顯示西瓜,當我敲A表時,圖像還是西瓜,當我敲C表時A表圖像變香蕉,當我又敲E表時C表圖像變香蕉,當我又敲B表時E表圖像才變香蕉,也就是剛敲節點時圖像不變直到敲另一個時才變,這使我不能即時控制節點要顯示什麼圖像,有什麼可解決呢? (我在很多事件中加TREEVIEW1.UPDATE和TREEVIEW1.REPAINT都沒有用)

Node1.ImageIndex:=0;
下面加上
Node1.SelectedIndex:=1;