控件拖拉编程.docx

listview

listview的各行中包含imageindex、caption、sublistitem等属性，要求两行完全互换（实现

listitem得上移下移功能）

unitUnit1;interface

uses

Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,

ComCtrls;

type

TForm1=class(TForm)ListView1:TListView;

procedureListView1DragDrop(Sender,Source:TObject;X,Y:Integer);procedureListView1DragOver(Sender,Source:TObject;X,Y:Integer;

State:TDragState;varAccept:Boolean);procedureFormCreate(Sender:TObject);

private

{Privatedeclarations}DragItem,TargetItem:TListItem;

public

{Publicdeclarations}end;

var

Form1:TForm1;implementatio