Delphi TreeView 节点上下移动

Delphi TreeView 节点上下移动

调用方法

procedure TfrmDataImport.B_ExcelDownClick(Sender: TObject);
begin
  UpDownTVItem(TV_Import, 2);
end;

procedure TfrmDataImport.B_ExcelUpClick(Sender: TObject);
begin
  UpDownTVItem(TV_Import, 1);
end;

　　

 

上下移动函数

 

procedure TfrmDataImport.UpDownTVItem(aTV : TTreeView; UpDown : Integer);
var
  tmText : String;
  tmP    : Pointer;
  i, AddV : Integer;
  tmAsk : Boolean;
begin
  //  UpDown : 1 Up    Other Down
  if Assigned(aTV.Selected) then
  begin
    tmAsk := False;
    if UpDown = 1 then
    begin
      AddV := -1;
      if aTV.Selected.Index > 0 then
        tmAsk := True;
    end
    else
    begin
      AddV := 1;
      if aTV.Selected.Index < aTV.Items.Count - 1 then
        tmAsk := True;
    end;

    if tmAsk then
    begin
      i := aTV.Selected.Index;
      tmText := aTV.Selected.Text;
      tmP    := aTV.Selected.Data;
      aTV.Items.Item[i].Text := aTV.Items.Item[i + AddV].Text;
      aTV.Items.Item[i].Data := aTV.Items.Item[i + AddV].Data;
      aTV.Items.Item[i + AddV].Text := tmText;
      aTV.Items.Item[i + AddV].Data := tmP;
      aTV.Items.Item[i + AddV].Selected := True;
    end;
  end;
end;

 

posted on 2018-03-20 15:00 Yanyyx 阅读(...) 评论(...) 编辑 收藏