listview能否实现拖动换行?
就是拖动一条数据上下移动
[解决办法]
可以，利用DragDrop事件来实现，以下是示例代码：
unit UExploreInitTable;
interface
uses
SysUtils, Messages, Classes, Graphics, Controls,
Forms, Dialogs, ComCtrls;
type
TForm1 = class(TForm)
ListView1: TListView;
procedure ListView1StartDrag(Sender: TObject;
var DragObject: TDragObject);
procedure ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
private
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
var
lstItem:TListItem;
procedure TForm1.ListView1StartDrag(Sender: TObject;
var DragObject: TDragObject);
begin
lstItem:=ListView1.Items[ListView1.ItemIndex]; //取得所拖动的ListItem
end;
procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:=ListView1.GetItemAt(X,Y)<>nil; //经过位置位于某ListItem范围内时方可接受拖放
end;
procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
lstItem2:TListItem;
begin
lstItem2:=ListView1.GetItemAt(X,Y); //取得放下位置的ListItem2
{生下来就是交换lstItem和lstItem2的数据了，不用我教了吧？}
end;
end.
