|
——此文章摘自《Delphi开发经验技巧宝典》定价￥特价￥ 购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> 在应用程序中把在ListBox中选中的内容复制到另一个ListBox中常用的方法有两种第一种方法是双击源ListBox把内容复制到目标ListBox中第二种方法是使用拖曳的方式把源 ListBox中的内容复制到目标ListBox中第二种方法使用起来更加地直观操作便捷本例是把城市名称从源ListBox中拖曳到目标 ListBox中如图所示 http://developcsaicn/delphi/images/jpg> 图 把ListBox中的内容拖曳到另一个ListBox中 在拖曳过程中判断如果Source对象是ListBox将允许进行拖曳在拖曳完成后把源ListBox中的内容复制到目标ListBox中主要代码如下 procedure TFormListBoxDragOver(Sender Source: TObject; X Y: Integer; State: TDragState; var Accept: Boolean); begin //如果源目标是ListBox允许进行拖曳 if TListBox(Source) = ListBox then Accept := True; end; procedure TFormListBoxDragDrop(Sender Source: TObject; X Y: Integer); begin ListBoxItemsAdd(ListboxItems[ListBoxItemIndex]); end; |
