控件拖拉编程.docxVIP

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; implementatio