listview接收放？

无 问题点数：100、回复次数：5Top

1 楼llidch2001（废石头）回复于 2002-04-17 11:59:54 得分 0

？？？Top

2 楼zx_wang（wzx）回复于 2002-04-17 12:05:49 得分 10

mousedown、dragdrop、dragover事件Top

3 楼fyje（云中仙）回复于 2002-04-17 12:06:59 得分 10

listview1.Items.Add/listview1.Items.AddItem()  
  listview1.Items.Delete();Top

4 楼dreamfan（改行不做程序员，回家种地。）回复于 2002-04-17 12:10:33 得分 1

什么问题啊，是送分吧，哈哈！！！！！！！！！Top

5 楼cg1120（代码最优化－§惟坚韧者始能遂其志§）回复于 2002-04-17 12:12:09 得分 79

这是我项目中的一段，不知道对你有没有用：  
  procedure   TForm4.RzListView1DragDrop(Sender,   Source:   TObject;   X,  
      Y:   Integer);  
  var  
      Snode:TTreeNode;  
      ListItem:TListItem;  
      x1,ida,lengthtmp,zbvalue:integer;  
      nametmp,typetmp,zbtype:string;  
      pData1:PDataNode;  
      pData2:PDataNode;  
  begin  
      if     source=rztreeview1     then  
      begin  
   
          Snode:=rzTreeView1.Selected;  
          pdata1:=snode.data;  
          ida:=integer(pdata1.id);  
          DataModule3.ADOTable2.open;  
          DataModule3.ADOTable2.Locate('id',inttostr(ida),[locaseinsensitive,lopartialkey]);  
          x1:=DataModule3.ADOTable2.FieldByName('id').value;  
          if   x1=ida   then  
          begin  
              nametmp:=DataModule3.ADOTable2.FieldByName('unit').value;  
              typetmp:=DataModule3.ADOTable2.FieldByName('type').value;  
              lengthtmp:=DataModule3.ADOTable2.FieldByName('length').value;  
              zbvalue:=DataModule3.ADOTable2.FieldByName('Value').value;  
              zbtype:=pdata1.zbt;  
              rzListView1.Items.BeginUpdate;  
              ListItem:=rzListView1.Items.Add   ;  
              ListItem.Caption:=nametmp;  
              ListItem.SubItems.Add(typetmp);  
              ListItem.SubItems.Add(inttostr(lengthtmp));  
              ListItem.SubItems.Add(inttostr(zbvalue));  
              if   zbtype='zbonce'   then   ListItem.SubItems.Add('一次指标');  
              rzListView1.Items.EndUpdate;  
              rztreeview1.Selected.Delete;  
          end  
          else   begin  
              showmessage('没找到相对应的数据定义值');  
          end;  
      end;  
   
   
        if     source=rztreeview2     then  
      begin  
   
          Snode:=rzTreeView2.Selected;  
   
          pdata2:=snode.data;  
          ida:=integer(pdata2.id);  
   
          DataModule3.ADOTable2.Locate('id',inttostr(ida),[locaseinsensitive,lopartialkey]);  
          x1:=DataModule3.ADOTable2.FieldByName('id').value;  
          if   x1=ida   then  
          begin  
              nametmp:=DataModule3.ADOTable2.FieldByName('unit').value;  
              typetmp:=DataModule3.ADOTable2.FieldByName('type').value;  
              lengthtmp:=DataModule3.ADOTable2.FieldByName('length').value;  
              zbvalue:=DataModule3.ADOTable2.FieldByName('Value').value;  
              zbtype:=pdata2.zbt;  
              rzListView1.Items.BeginUpdate;  
              ListItem:=rzListView1.Items.Add   ;  
              ListItem.Caption:=nametmp;  
              ListItem.SubItems.Add(typetmp);  
              ListItem.SubItems.Add(inttostr(lengthtmp));  
              ListItem.SubItems.Add(inttostr(zbvalue));  
              if   zbtype='zbsecond'   then   ListItem.SubItems.Add('二次指标');  
              rzListView1.Items.EndUpdate;  
              rztreeview2.Selected.Delete;  
          end  
          else   begin  
              showmessage('没找到相对应的数据定义值');  
          end;  
      end;  
  end;  
  Top

相关问题

• adotable2
• datamodule3
• rzlistview
• snode
• listview
• fieldbyname
• pdata
• ida
• listitem
• items

• 帖主：foxchina
• zx_wang
• fyje
• dreamfan
• cg1120

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载