控件拖拉编程.docx

listview listview 的各行中包含 imageindex、caption、sublistitem 等属性，要求两行完全互换（实现 listitem 得上移下移功能） unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls; type TForm1 = class(TForm) ListView1: TListView; procedure ListView1DragDrop(Sender, Source: TObject; X, Y: Integer); procedure ListView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); procedure FormCreate(Sender: TObject); private { Private declarations } DragItem, TargetItem:TListItem; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer); var TargetIndex: integer; begin DragItem := ListView1.Selected; TargetIndex := ListView1.DropTarget.Index; if TargetIndexDragItem.Index then TargetItem:=ListView1.Items.Insert(TargetIndex+1) else TargetItem:=ListView1.Items.Insert(TargetIndex); TargetItem.Assign(DragItem); DragItem.Delete; end; procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin if Source=ListView1 then accept :=true; end; procedure TForm1.FormCreate(Sender: TObject); begin ListView1.DragMode := dmAutomatic; ListView1.ViewStyle := vsList; end; end. 使用鼠标拖动更快！ /Bios/Ddgg_soarn.ace 是我做的事例 该文章转载自 1024k： /faq/2007/200706/39622.html /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ListView 中实现 Item 的拖放 可以改变 可以改变 Item 的位置。在 ListView1 中将 DragMode 设置为 dmAutomatic。定义全局变量，整型 BeginI ndex,EndIndex。然后添加如下代码： procedure Tfrmmain.ListView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if ListView1.ItemIndex-1 then BeginIndex:=ListView1.ItemIndex; end; procedure Tfrmmain.ListView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin if y15 then begin SendMessage(ListView1.Handle,WM_VSCROLL,SB_LINEUP,0); Lis