这是LISTVIEW接受 拖动事件响应的代码
修改一下就可以了!procedure TForm1.ListView1EndDrag(Sender, Target: TObject; X, Y: Integer);
var
newNode:TListItem;
begin
if Target is TListView then
begin
with Target as TListView do
begin
newNode:=Items.Add;
newNode.Caption:=TTreeView(Sender).Selected.Text;
newNode.subItems.add(TTreeView(Sender).Selected.getfirstchild.text);
end;
end;
end;
修改一下就可以了!procedure TForm1.ListView1EndDrag(Sender, Target: TObject; X, Y: Integer);
var
newNode:TListItem;
begin
if Target is TListView then
begin
with Target as TListView do
begin
newNode:=Items.Add;
newNode.Caption:=TTreeView(Sender).Selected.Text;
newNode.subItems.add(TTreeView(Sender).Selected.getfirstchild.text);
end;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货