Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

Компонент ListView   Найти похожие ветки 

 
Box ©   (2004-05-09 02:35) [0]

Подскажите пожалуйста как сделать что бы по ListView можно было перемещать (Drag&Drop) несколько выделенных иконок, а то у меня только одна перемещается (остальные на месте остаются)???


 
Gero ©   (2004-05-09 08:03) [1]

{ 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 = Source;
end;



Страницы: 1 вся ветка

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.022 c
1-1083741812
Alek_1
2004-05-05 11:23
2004.05.23
Преобразование типов


1-1083740361
Term
2004-05-05 10:59
2004.05.23
Можно ли сделать форму активной если известен её caption?


8-1077798054
S@shka
2004-02-26 15:20
2004.05.23
Как правильно смешать два WAV-ника


3-1083317601
}|{yk
2004-04-30 13:33
2004.05.23
Создание GUID в Firebird


6-1080927814
Max003
2004-04-02 21:43
2004.05.23
Как создать ini файл на сервере через FTP доступ