We'll be deploying 1.43 to ShoutWiki sites this weekend. Staff will be working all weekend to deal with any unforeseen bugs that crop up.

CreateWiki will not be available immediately after the upgrade; however, we expect the rewrite to be completed during this release cycle.

Drag and Drop несколько элементов в TListView

Материал из DRKB

Drag and Drop несколько элементов в TListView[править | править код]

{ ListView1.DragMode := dmAutomatic } 

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer); 
var 
  DragItem, DropItem, CurrentItem, NextItem: TListItem; 
begin 
  if Sender = Source then 
    with TListView(Sender) do 
    begin 
      DropItem    := GetItemAt(X, Y); 
      CurrentItem := Selected; 
      while CurrentItem <> nil do 
      begin 
        NextItem := GetNextItem(CurrentItem, SdAll, [IsSelected]); 
        if DropItem = nil then
          DragItem := Items.Add 
        else 
          DragItem := Items.Insert(DropItem.Index); 
        DragItem.Assign(CurrentItem); 
        CurrentItem.Free; 
        CurrentItem := NextItem; 
      end; 
    end; 
end; 

procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer; 
  State: TDragState; var Accept: Boolean); 
begin 
  Accept := (Sender = ListView1); 
end;


Source: http://delphiworld.narod.ru/
ID: 00704