控件拖拉编程.docVIP

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。定义全局变量，整型 BeginIndex,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.ListVie