VPF::TreeView, ListBox и Drag and Drop - Форум программистов

4EVERCooL

Дата 27.5.2009, 13:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 20.4.2009

Репутация: нет
Всего: нет

У меня уже едет крыша. Сделал драгидроп внутри тривью + драгидроп из ЛистБокс на тривью. И все бы ничего... Да только работать драгидроп из ListBox-a в TreeView начинает только после того, как в самом TreeView хотя бы раз делался драгидроп или если два раза кликнуть на одном из нодов. Причем работает до первого сворачивания TreeView. Далее, чтобы включить драг из Листбокса, нужно опять либо перетащить нод из одного места в другое, либо кликнуть на ноде два раза. Перепробовал кучу вариантов - ничего не помогает. Нутром чую, что что-то не так в переменной accept, а что конкрентно... Вот код:

Код


procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var
  VarNode, SelNode: TTreeNode;
begin
TreeView1.FullExpand;
TreeView1.Update;
   VarNode := TreeView1.GetNodeAt(x, y);
   Accept := ((Source = ListBox1) and (VarNode <> nil) and (VarNode.Level=1)and(VarNode.IsFirstNode=false)
    and (ListBox1.ItemIndex >= 0))or((Sender=Source) and (VarNode <> nil) and (VarNode.Level=1)and(VarNode.IsFirstNode=false));
  if not Accept then
    Exit;

  SelNode := Treeview1.Selected;
  while (VarNode.Parent <> nil) and (VarNode <> SelNode) do
  begin
    VarNode := VarNode.Parent;
    if (VarNode = SelNode) and (VarNode.Level<>1)  then
    begin
      Accept := False;
      end
      else
      Accept:=True;
    end;


end;

procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  VarNode, SelNode: TTreeNode;
  i: integer;
begin
VarNode := TreeView1.GetNodeAt(X, Y);
if Source = Sender then
  begin
    if VarNode = nil then
        Exit;
    SelNode := TreeView1.Selected;
    TreeView1.Items.BeginUpdate;
    SelNode.MoveTo(VarNode, naAddChild);
    TreeView1.Items.EndUpdate;
    end
    else
if Source = ListBox1 then
  begin
    if (VarNode = nil) and (Varnode.Level<>1) then
    Exit;
   for i:= 0 to Treeview1.Items.Count -1 do
   begin
    if Treeview1.Items[i].Text=ListBox1.Items[ListBox1.ItemIndex]  then
    begin
    Showmessage('Òàêîé ñ÷åò óæå ñóùåñòâóåò!');
    exit;
    end;
    end;
    TreeView1.Items.BeginUpdate;
      Treeview1.Items.AddChild(VarNode, ListBox1.Items[ListBox1.ItemIndex]);
      TreeView1.Items.EndUpdate;
  end;
end;

4EVERCooL

Дата 28.5.2009, 07:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 20.4.2009

Репутация: нет
Всего: нет

Вопрос снимается, проблема полностью решена smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »