Alqoritm, xassələri və təsvir üsulları

ListBox2. ExtendedSelect: =True; // seçilməsinə icazə verilir ListBox2.Clear;
ListBoxl. DragMode :=dmAutomatic; //Mausla elementlərin
// yerlərinin dəyişdirilməsi
ListBox2. DragMode: =dmAutomatic; //əməliyyatını avtomatik
// başlamağa icazə verilir end;
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:
procedure TForml.ListBox2 DragOver (Sender,
Source:TObj ect; X, Y:Integer; State:TDragState; var Accept:Boolean);