실제 쓰셨던 거라니....

일단 무지무지 감사드립니다..

무지무지 복많이 받으세요...*^^*

즐푸~~~~

ps... 한씨름 더는군요...^^;


류현 님이 쓰신 글 :
: 안녕하세요
: 아래는 저번 프로그램에 삽입했던 코딩이고요
: 도움이 되었으면 좋겠네요
: 멀티로도 선택해서 드레그 할수도 있고요
: 하나에서 다른 하나로도 이동할수 있어요..
: 그럼 즐프하세요
:
: void __fastcall TForm1::DstListDragDrop(TObject *Sender, TObject *Source,
:       int X, int Y)
: {
:     int nSelIndex, nCnt=0, nSelCount=0;
:     TListItem *DestItem;
:     TListItem *SourceItem;
:     String    InsertItemName, InsertSubItemName;
:
:     if(!Sender->ClassNameIs("TListView") || !Source->ClassNameIs("TListView"))
:         return;
:
:     TListView *DestList = (TListView *)Sender;
:     TListView *SourceList = (TListView *)Source;
:
: //-- 요건 같은 리스트뷰내에서의 이동이고요
:     if(DestList == SourceList) { //--
:         nSelIndex = DestList->Selected->Index;
:         nSelCount = DestList->SelCount;
:         if(DestList->DropTarget == NULL || DestList->DropTarget->Index == nSelIndex)
:             return;
:         for(int i=0; ; i++) {
:             //-- 요건 멀티로 셀렉트 해서 다시 셀렉트된곳에 놔둘경우에 아래로직을 타서
:                   bpl에러 방지용이고요
:             if(DestList->DropTarget->Index >= nSelIndex && DestList->DropTarget->Index <= nSelIndex + nSelCount - 1)
:                 return;
:             if(DestList->Items->Item[nSelIndex+i]->Selected) {
:                 nCnt++;
:                 DestItem = DestList->Items->Item[nSelIndex+i];
:                 InsertItemName = DestItem->Caption;
:                 InsertSubItemName = DestItem->SubItems->Text.TrimRight();
:                 DestList->Items->Delete(nSelIndex+i);
:                 i--;
:                 DestItem = DestList->Items->Insert(DestList->DropTarget->Index+nCnt);
:                 DestItem->Caption = InsertItemName;
:                 DestItem->SubItems->Add(InsertSubItemName.TrimRight());
:             }
:
:             if(nCnt == nSelCount)
:                 break;
:         }
:     }
: //-- 요건 다른 리스트뷰로의 이동이에요
:     else if(DestList->Name != SourceList->Name) {
:         TListItem* Item = ListView2->Selected;
:         TListItem* InsertItem;
:         TItemStates selected = TItemStates() << isSelected;       
:         int Index = -1;       
:         while (Item){
:             //-- 리스트뷰에 최대 허용갯수가 50개로 가정했을경우에
:             if (DstList->Items->Count >= 50) {
:                 Panel2->Font->Color = clRed;
:                 Panel2->Caption = "최대 50개 까지 가능합니다.";
:                 Beep();
:             return;
:             }
:
:             if (fnGetIndex(Item->SubItems->Strings[0]) < 0) {
:                 if (Index == -1) {
:                     InsertItem = DstList->Items->Add();
:                     InsertItem->Assign(Item);
:                 }
:                 else {
:                     InsertItem = DstList->Items->Insert(Index);
:                     InsertItem->Assign(Item);
:                 }
:             }
:             Item = ListView2->GetNextItem(Item, sdAll, selected);
:         }
:     }
: }
:
:
: void __fastcall TForm1::DstListDragOver(TObject *Sender, TObject *Source,
:       int X, int Y, TDragState State, bool &Accept)
: {
:     Accept = Source->ClassNameIs("TListView");
:     return;
: }
:
: