ListBox2.Sorted:=False;// edilir ListBoxl.MultiSelect:=True;//Bir neçə elementin ListBox2.MultiSelect:=True;// seçilməsinə icazə verilir ListBoxl. ExtendedSelect: =True;// Klaviatura ilə elementin ListBox2. ExtendedSelect: =True;// seçilməsinə icazə verilirListBox2.Clear; ListBoxl. DragMode :=dmAutomatic; //Mausla elementlərin // yerlərinin dəyişdirilməsi ListBox2. DragMode: =dmAutomatic; //əməliyyatını avtomatik // başlamağa icazə verilirend; Kodlara əlavə edilmiş şərhlər və hər bir xassənin indiyədək verilmiş ətraflı izahı bu prosedurun yerinə yetirdiyi əməliyyatları dərk etməyə imkan verir. Buttonl düyməsi üzərində mausun düyməsini iki dəfə basaraq seçilmiş elementləri ikinci siyahıya köçürən proseduru yaradın: procedure TForml.btnRightClick(Sender: TObject) Var i:Integer; begin for i:= ListBoxl.Items.Count-1 downto 0 do if ListBoxl.Selected[1] then begin ListBox2.Items.Add(ListBoxl.Items[i]); ListBoxl.Items.Delete(i); end; end; Bu prosedur icra olunduqdan sonra, Sağa düyməsini basdıqda, ListBoxl siyahısında seçilmiş elementlər ListBox2 siyahısına köçürülür və birinci siyahıdan həmin element pozulur. Dövrün (for) təşkilində elementlərin araşdırılması sonuncu elementdən (Count-1) başlayır. Bu ona görə belə edilir ki, element pozulacaq, lakin, dövrlərin sayı dəyişməyəcəkdir. Bu isə səhvə gətirəcəkdir. Elementin seçilməsi Selected xassəsi ilə yoxlanır. İndi isə elementlərin mausla köçürülməsi prosedurlarını yaradaq. Element ikinci siyahıya köçürüldüyü üçün, qəbuledici komponent kimi ListBox2 siyahısını seçib OnDragOver hadisəsi qarşısında mausun düyməsini iki dəfə basaraq bu kodları yazın:
