Недавно добавленные исходники

•  TDictionary Custom Sort  3 227

•  Fast Watermark Sources  2 992

•  3D Designer  4 751

•  Sik Screen Capture  3 259

•  Patch Maker  3 467

•  Айболит (remote control)  3 528

•  ListBox Drag & Drop  2 904

•  Доска для игры Реверси  80 792

•  Графические эффекты  3 843

•  Рисование по маске  3 172

•  Перетаскивание изображений  2 544

•  Canvas Drawing  2 672

•  Рисование Луны  2 500

•  Поворот изображения  2 094

•  Рисование стержней  2 121

•  Paint on Shape  1 525

•  Генератор кроссвордов  2 183

•  Головоломка Paletto  1 730

•  Теорема Монжа об окружностях  2 158

•  Пазл Numbrix  1 649

•  Заборы и коммивояжеры  2 017

•  Игра HIP  1 262

•  Игра Go (Го)  1 201

•  Симулятор лифта  1 424

•  Программа укладки плитки  1 178

•  Генератор лабиринта  1 512

•  Проверка числового ввода  1 297

•  HEX View  1 466

•  Физический маятник  1 322

•  Задача коммивояжера  1 357

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Drag and Drop со списками



Оформил: DeeCo

{ 
 This example shows how to drag&drop within a TListBox. 
 The Demo Program also shows how to implement an autoscroll-feature. 

 Dieses Beispiel zeigt, wie man drag & drop in einer TListBox realisiert. 
 Im Demo-Programm wird auch eine Autoscroll-Funktion gezeigt. 
}

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

 procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
 var
   iTemp: Integer;
   ptTemp: TPoint;
   szTemp: string;
 begin
   { change the x,y coordinates into a TPoint record }
   ptTemp.x := x;
   ptTemp.y := y;

   { Use a while loop instead of a for loop due to items possible being removed 
   from listboxes this prevents an out of bounds exception }
   iTemp := 0;
    while iTemp <= TListBox(Source).Items.Count-1 do
   begin
     { look for the selected items as these are the ones we wish to move }
     if TListBox(Source).selected[iTemp] then
     begin
       { use a with as to make code easier to read }
       with Sender as TListBox do
       begin
       { need to use a temporary variable as when the item is deleted the 
        indexing will change }
         szTemp := TListBox(Source).Items[iTemp];

         { delete the item that is being dragged  }
         TListBox(Source).Items.Delete(iTemp);

       { insert the item into the correct position in the listbox that it 
       was dropped on }
         Items.Insert(itemAtPos(ptTemp, True), szTemp);
       end;
     end;
     Inc(iTemp);
   end;
 end;




Похожие по теме исходники

Текст Drag & Drop

Drag and Drop Text

Quick Drag & Drop

Dragster Tree Relay

 

ListBox Drag & Drop

Backup and Restore

Market Monitoring and Billing

Black and White Effects

 

Sand Dog

Wave and MIDI In-Out

Vista and 7 Sound

Improved Buttons and ProgressBar

 

Desktop Sands

Rotation and Symmetry

Dropper (пипетка Фотошоп)




Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте