Скачать: CL | DM;

Перемещение в TreeView   Найти похожие ветки 

← →
Гиричев Руслан ©   (2004-02-27 18:40) [0]

Здравствуйте!
Скажите пожалуйста, как переместить по нажатию на кнопку выделенною строку вверх (вних) в TreeView?

---

← →
Гиричев Руслан ©   (2004-02-27 23:24) [1]

Ну что ж, спасибо :-)

---

← →
Maxud ©   (2004-02-28 11:08) [2]

Типа этого:
var n: TTreeNode;
begin
 n := TreeView.Selected;
 if n <> nil then
  if n.GetPrev <> nil then
   n.MoveTo(n.GetPrev, naInsert);
end;

---

← →
Гиричев Руслан ©   (2004-03-01 20:47) [3]

Извините, вверх - отлично, но вниз... Как вниз?

---

← →
VMcL ©   (2004-03-01 22:29) [4]

>>Гиричев Руслан ©  (01.03.04 20:47) [3]

procedure TForm1.Button1Click(Sender: TObject);
var
 LI: TTreeNode;
begin
 LI := TreeView1.Selected;
 if LI.Count > 0 then
   TreeView1.Selected := LI.Item[0];
end;
___
LMD

---

← →
Гиричев Руслан ©   (2004-03-01 23:01) [5]

Спасибо!

---

← →
cdadmitriy ©   (2004-03-02 10:29) [6]

TEST

---

← →
VMcL ©   (2004-03-04 23:00) [7]

>>Гиричев Руслан ©  (01.03.04 23:01) [5]

Для полного счастья следует писать так:
procedure TForm1.Button1Click(Sender: TObject);
var
LI: TTreeNode;
begin
LI := TreeView1.Selected;
if (LI <> nil) and (LI.Count > 0) then  // $BoolEval OFF (!)
 TreeView1.Selected := LI.Item[0];
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c