——此文章摘自《Delphi開發經驗技巧寶典》定價
¥
特價
¥
購買>>
![](<fp)
http://track
linktech
cn/?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;
From:http://tw.wingwit.com/Article/program/Delphi/201311/8513.html