![]() |
|
|
Регистрация | << Правила форума >> | 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; |