Listbox и прибамбасы =)

[GAGARIN-NEW]

Я делаю програмку на подобее Alt Desktop тоесть переключающитеся экраны ...
Подскажите пожалуйста как сдлать перекидывание из одного списка listbox в другой ?? типо Drsg&Drop ...
И как организовать поиск в ЛистБоксе с удалением элементов и известным именем ?(в проге используется процедура поиска всех открытых окон... и всегда находится Program Manager ... вот его то мне и нада автоматом удалять из списка чтобы чтото случайно не натворить =)) я думаю так :

i:=0;
for i to (listbox1.items.count-1) do
   begin
   if listbox1.items[i]='Window1' then listbox1.items[i].deleteitem;
   i:=i+1;
   end;

Проверить немогу ( написал отруки... вродебы прально... есть другие спосабы ?
Да и вот ещё..можно ли както получить иконки открытых окошеки отображать их динамически ?(тоесть количество иконок не фиксировано - изменяется на текущее количество и добавляется при нехватке...)- как это организовать ?
Если что поправьте меня... Заранее всем благодарен...

[snusmumric]

Drag and Drop между двумя компонентами ListBox
--------------------------------------------------------------------------------





Вот пересмотренный OnDragDrop, использующий source (источник) и sender (передатчик) вместо DstList и SrcList. Теперь, если вы установили SrcList и DstList для использования тех же методов OnDragOver и OnDragDrop и создали обработчик события OnDragDrop, то для операции Drag and Drop вы можете использовать оба решения.



procedure TDualListDlg.DstListDragDrop(Sender , Source: TObject; X,
Y: Integer);
var
droppedOnIndex: integer;
anItem: integer;
numberOfItems: integer;
begin
if (Sender is TListbox) and (Source is TListBox) then
begin
droppedOnIndex := TListBox(Sender).ItemAtPos(Point(X, Y), false);
numberOfItems := TListBox(Source).SelCount;
anItem := 0;
while numberOfItems > 0 do
begin
if TListBox(Source).Selected[anItem] = true then
begin
TListBox(Sender).Items.Insert(dropp edOnIndex,
TListBox(Source).Items[anItem]);
TListBox(Source).Items.Delete(anIte m);
TListBox(Source).Update;
TListBox(Sender).Update;
numberOfItems := numberOfItems - 1;
end
else
anItem := anItem + 1;
end;
end;
end;




Для того, чтобы предотвратить операцию Drag and Drop с одним и тем же компонентом, используйте следующий код в обработчике события OnDragOver:



if (Sender is TListBox) and (Source is TListBox) then
begin
if TListBox(Sender).Name = TListBox(Source).Name then
Accept := False
else
Accept := true;
end;

[snusmumric]

а по поводу удаления Program Manager - просто в проге когда находишь его, то в листбокс не добавляй вот и все

[GAGARIN-NEW]

тоже способ но мне кроме этого ещё и интересно знать как это делается... (поиск итд) я вроде всё прально написал да?

[mutabor]

Поиск с удалением по ходу поиска надо начинать с конца (и кстати переменную счетчик самому не надо изменять)

for i := listbox1.items.count-1 downto 0 do
   if listbox1.items[i]='Window1' then listbox1.items[i].deleteitem;

Иначе, если будет удален хоть один пункт, цикл до конца не дойдет. Почему так? А это ты сам догадайся, важный момент.

[GAGARIN-NEW]

так вроде listbox1.items.count задаётся только вначале цикла ? или он будет изменятся если удалить какойто item ???

[mutabor]

или он будет изменятся если удалить какойто item ???

конечно будет, допустим у тебя 10 айтемов ты задаешь циклу условие от 0 до 9 и в одной из итераций удаляешь айтем, айтемов стало 9 (0 - 8), что будет при попытке обращения к девятому?
if listbox1.items[9]='Window1'...

[GAGARIN-NEW]

ясненько... ну это легко исправить поставлю вместо этого переменную и всё =)
а по общему вопросу... Как сделать Drag&Drop с анимацией ? (чтоб когда я перекидываю было видно какой item я взял мышой) и можно ли будет Drop'нуть взятый item не в конец 2-го листбокса а в туда куда например мышкой отпущу.... (например как иконки возле пуска в 'панели быстрого запуска') ???

[GAGARIN-NEW]

Вот такой простой примерец я сам намутил .... изобрёл калесо
Памагите плиз ДрагДроп нормальный сделать...

[mutabor]

ясненько... ну это легко исправить поставлю вместо этого переменную и всё =)

я тебе не все объяснил, есть еще один момент (имеется ввиду если поиск не с конца)
берем тот же пример, список из 10-ти пунктов, перебираем в цикле, допустим второй[1] удаляем, при этом происходит смещение и третий элемент становится вторым, но следующая итерация цикла третья и в ней будет обрабатываться бывший четвертый, получается что элемент следующий за удаляемым не обрабатывается

а по общему вопросу... Как сделать Drag&Drop с анимацией ?

стандартный драг энд дроп сделать не сложно, но он без анимации, просто к курсору во время перетаскивания добавляется маленький прямоугольник (crDrag вроде называется) в справке есть примеры