熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

如何把ListBox中的內容拖曳到另一個ListBox中

2013-11-11 21:06:25  來源: Delphi編程 
    ——此文章摘自《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;


From:http://tw.wingwit.com/Article/program/Delphi/201311/8513.html
  • 上一篇文章:

  • 下一篇文章:
  • 推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.