Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=174341&view=findpost&p=1477210 Wed, 07 Mar 2007 11:45:06 +0000 Virtual TreeView https://forum.sources.ru/index.php?showtopic=174341&view=findpost&p=1477210
    var
      Node, NextNode: PVirtualNode;
    begin
      Node := VST.FocusedNode;
      if not Assigned(Node) then Exit;
     
      NextNode := VST.GetNextVisibleSibling(Node);
      if not Assigned(NextNode) then
        NextNode := VST.GetPreviousVisibleSibling(Node);
     
      if Assigned(NextNode) then
      begin
        VST.FocusedNode := NextNode; // вот такая вот мелочь нужна еще
        VST.Selected[NextNode] := True;
      end;
     
      VST.DeleteNode(Node);
]]> Smike Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=174341&view=findpost&p=1477187 Wed, 07 Mar 2007 11:25:06 +0000 Virtual TreeView https://forum.sources.ru/index.php?showtopic=174341&view=findpost&p=1477187 Smike при использовании твоего примера выделенный узел удаляется но соседние не выделяются.

Если его модифицировать:

      Node := VT.FocusedNode;
      if not Assigned(Node) then Exit;
     
      NextNode := VT.GetNextVisibleSibling(Node);
      if not Assigned(NextNode) then
        NextNode := VT.GetPreviousVisibleSibling(Node);
     
      if Assigned(NextNode) then
        VT.Selected[NextNode] := True;
     
      vt.DeleteSelectedNodes;
     
      if Assigned(Node) then
        VT.Selected[Node] := True;


то удаляются по очереди как надо кроме выделенного узла (он удаляется последним). В чем прикол?]]> AnalogXP Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=174341&view=findpost&p=1476790 Wed, 07 Mar 2007 07:42:39 +0000 Virtual TreeView https://forum.sources.ru/index.php?showtopic=174341&view=findpost&p=1476790
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    if TreeView1.SelectionCount<1 then exit;
    TreeView1.Selected.Delete;
    TreeView1.SetFocus;
    end;
]]> ViktorXP Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=174341&view=findpost&p=1476626 Wed, 07 Mar 2007 05:26:12 +0000 Virtual TreeView https://forum.sources.ru/index.php?showtopic=174341&view=findpost&p=1476626 Цитата --= Eagle =-- @
код собирал на коленке

Почему бы не написать проще?
      Node := VST.FocusedNode;
      if not Assigned(Node) then Exit;
     
      NextNode := VST.GetNextVisibleSibling(Node);
      if not Assigned(NextNode) then
        NextNode := VST.GetPreviousVisibleSibling(Node);
     
      if Assigned(NextNode) then
        VST.Selected[NextNode] := True;
     
      VST.DeleteNode(Node);
]]> Smike Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=174341&view=findpost&p=1476527 Tue, 06 Mar 2007 21:19:41 +0000 Virtual TreeView https://forum.sources.ru/index.php?showtopic=174341&view=findpost&p=1476527
    if not Assigned(Node) then Exit;
    NextNode := VST.GetNextVisibleSibling(Node);
    if Assigned(NextNode) then
      VST.Selected[NextNode] := True
    else
    begin
      NextNode := VST.GetPreviousVisibleSibling(Node);
      if Assigned(NextNode) then
        VST.Selected[NextNode] := True
    end;
    VST.DeleteNode(Node);

Вместо GetNextVisibleSibling/GetPreviousVisibleSibling можно использовать то, что больше нужно (хоть GetNextVisible/GetPreviousVisible, хоть что-то доругое)]]> --= Eagle =-- Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=174341&view=findpost&p=1476359 Tue, 06 Mar 2007 17:00:45 +0000 Virtual TreeView https://forum.sources.ru/index.php?showtopic=174341&view=findpost&p=1476359 ViktorXP не работает. Вообще я не могу добратся до этих итемов. Только вчера его установил.]]> AnalogXP Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=174341&view=findpost&p=1476053 Tue, 06 Mar 2007 12:28:43 +0000 Virtual TreeView https://forum.sources.ru/index.php?showtopic=174341&view=findpost&p=1476053
    tvTB.Items.Item[1].Selected:=true;

виделяю первую ветку

Добавлено
а вот под твои нужди
    var
    i:integer;
    begin
    i:=tvTB.Selected.Index;
      tvTB.Items.Item[i-1].Selected:=true;
      tvTB.Items.Item[i].Free; //или  tvTB.Items.Item[i].Delete;
]]> ViktorXP Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=174341&view=findpost&p=1476042 Tue, 06 Mar 2007 12:23:24 +0000 Virtual TreeView https://forum.sources.ru/index.php?showtopic=174341&view=findpost&p=1476042
Удаляю так:

    VT.DeleteSelectedNodes;


А что дальше - понятия не имею.]]> AnalogXP Delphi: Общие вопросы