![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#4
|
|||
|
|||
|
Выбранный нод - что то типа TreeView1.Selected (не помню точно иерархию).
Как выбрать картинку... ну сделай функцию: Код:
function GetImgIdxByCbIdx(Idx : Integer) : Integer;
begin
case Idx Of
0 : Result := 11;
1 : Result := 23;
2 : Result := 48;
Else Result := -1; // Default
end;
end;Код:
procedure TForm1.ComboBox1Change(Sender : TObject);
begin
if TreeView1.Selected <> Nil Then
TreeView1.ImageIndex := GetImgIdxByCbIdx(ComboBox1.ItemIndex);
end; |