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