Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.19;
Скачать: [xml.tar.bz2];

Вниз

Как поменять местами узлы,   Найти похожие ветки 

 
MikeFW   (2002-08-07 11:13) [0]

Уважаемые Мастера, подскажите, пожалуйста,
Как поменять местами узлы, "дети" одного узла в TreeView?
например, есть дерево
1
|--- 2
|--- 3
|--- 4

а мне надо мышкой перенести 3 перед 2
чтобы получилось так:
1
|--- 3
|--- 2
|--- 4


 
Ник   (2002-08-07 12:01) [1]

Поразбирайся
У TreeView dragmode = dmAutomatic

procedure TForm1.TreeView1DragDrop(Sender, Source: TObject;
X, Y: Integer);
var
TargetNode, SourceNode: TTreeNode;
begin
TargetNode := TreeView1.GetNodeAt (X, Y);
if TargetNode <> nil then
begin
SourceNode := TreeView1.Selected;
SourceNode.MoveTo (TargetNode, naAddChildFirst);
TargetNode.Expand (False);
TreeView1.Selected := TargetNode;
end;
end;
procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
var
TargetNode, SourceNode: TTreeNode;
begin
TargetNode := TreeView1.GetNodeAt (X, Y);
// accept dragging from itself
if (Source = Sender) and (TargetNode <> nil) then
begin
Accept := True;
// determines source and target
SourceNode := TreeView1.Selected;
// look up the target parent chain
while (TargetNode.Parent <> nil) and
(TargetNode <> SourceNode) do
TargetNode := TargetNode.Parent;
// if source is found
if TargetNode = SourceNode then
// do not allow dragging over a child
Accept := False;
end
else
Accept := False;
end;


 
MikeFW   (2002-08-08 11:04) [2]

Только в приведенном примере не удается поменять местами "детей" одного "родителя", а мне именно это и нужно сделать.

т.е. в выше приведенном примере с деревом, я хочу перетащить "3" на "1" и получить последовательность "3","2","4" в "1".

а именно как мне менять у "детей" "родителя" TTreeNode.Index,
т.е. вначале у "2" этот показатель равен 0, а у "3" - 1, а я хочу чтобы у "3" он стал - 1, а у "2" - 0.

Подскажите, пожалуйста, как это сделать?



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

Форум: "Основная";
Текущий архив: 2002.08.19;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.006 c
3-60511
kiralse
2002-07-30 08:03
2002.08.19
Как сделать быстрый поиск по двум таблицам


1-60568
Dmk
2002-08-06 23:46
2002.08.19
Как высоту Caption формы сделать поменьше.


3-60485
vich
2002-07-25 02:28
2002.08.19
Пытаюсь сравнить дату из базы с системной и выдать сообщение.


1-60681
ilg
2002-08-06 02:23
2002.08.19
Запуск в свернутом виде


1-60749
TAN_K
2002-08-07 13:36
2002.08.19
Работа с ComboBox - чайник - 1 программа в Delphi





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский