Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
ВнизПеремещение в 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 вся ветка
Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.031 c