Отличный Drag And Drop в TTreeView

[RIO]

Здравствуйте ! Столкнулся с интересной проблемой. Реализовал Drag And Drop в TTreeView. Все вроде нормально работает, но не отлично. А именно - работает перетаскивание из пункта в пункт. А вот если, например - в пункте есть три подпункта (1, 2, 3) и их нужно поменять местами (3, 2, 1), это уже никак не сделать, разве что все эти подпункты выкидывать в другой пункт, а потом по очереди вкидывать обратно. Проект в приложении. Помогите пожалуйста, смотрел тему :

http://programmersforum.ru/showthread.php?t=54194

Хорошенько погуглил, но того, что нужно так и не нашел

[mihali4]

Да ничего сложного.

procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
(Source as TTreeView).Selected.MoveTo((Sender as TTreeView).DropTarget, naInsert);
end;

Это будет действовать при любом перемещении ноды, кроме случая, когда вы попытаетесь поставить ноду последней.
Один из методов решения - пусть по нажатию, например, клавиши CTRL у вас меняется naInsert на naAdd...
То есть без клавиши CTRL будет вставка "перед", а с нажатием - "после".

[RIO]

Да, идея действительно хорошая. Только вот у меня возникли проблемы с отслежкой зажатой клавиши CTRL. Как и куда поставить проверку ?

[mihali4]

Тоже просто.

procedure TForm1.TreeView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Shift=[ssCtrl] then
Label3.Caption:='Ctrl нажата';
end;

Вместо

Label3.Caption:='Ctrl нажата';

ставите установку некоего флажка (это такая булева глобальная переменная, изначально False).
Ну, а дальше...? (поверьте, я хочу вас "научить", а не "сунуть готовый исходник". поэтому и "мучаю" )

[RIO]

Спасибо Я понял. И правильно вы делаете Поддерживаю ! А насчет процедуры TreeView1KeyDown не подумал, что-то меня переубедило, что именно там нужно логическую переменную ставить

Только у меня будет вопрос, почему именно :

if Shift = [SSCtrl] then

Я всегда пользовался :

if Key = VK_CONTROL then

? ? ?

[Stilet]

Специально разделили
key это нефункциональные клавиши клавиатуры.
Остаются SHIFT, CTRL, ALT - потому что они используются в стандартных горячих клавишай.
Это нормальный ход

[RIO]

mihali4, возникли проблемы с флажком. Сделал так :

procedure TBox.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if TVB then
  begin
     (Source as TTreeView).Selected.MoveTo((Sender as TTreeView).DropTarget, NAInsert);
     Exit;
  end;
     (Source as TTreeView).Selected.MoveTo((Sender as TTreeView).DropTarget, NAAdd);
end;

procedure TBox.TreeView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Shift = [SSCtrl] then
     TVB := True;
end;

Теперь, нужно как-то после перетаскивания вернуть флажку фелс. Но с этим не получается. Делал так :

procedure TBox.TreeView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  TVB := False;
  if Shift = [SSCtrl] then
     TVB := True;
end;

Но программа работает не корректно.

[mihali4]

Просто

TVB := False;

поставьте перед

Exit;

[RIO]

Пробовал, но не работает, то что мне нужно. Видно из-за того, что у меня еще используется DragOver и там тоже проверка на эту переменную и ехит. Посмотрите исходники, я думаю поймете в чем проблема. Я делаю так, запускаю екзе, зажимаю контрол, меняю положение подпунктов. Но потом отпускаю контрол и хочу вложить подпукнт в подпункт и вот все, не работает (опять обмен пунктов работает, буд-то контрол зажат), если я раз сделаю обмен, то потом могу выполнять уже вкладывание.

[mihali4]

Елы-палы, ну добавьте

procedure TBox.TreeView1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  TVB := False;
end;