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

procedure TForml.ListBox2 DragOver (Sender,
Source:TObj ect; X, Y:Integer; State:TDragState; var Accept:Boolean);
begin if Source= ListBoxl then Accept:=True else Accept:=False; end;
Bu prosedur mausla elementin yerini dəyişdirməyə icazə verilməsini müəyyən edir.
Bu prosedur icra olunduqda həmişə sonuncu seçilmiş elemem köçürüləcəkdir.
Çünki, burada elementin seçilməsində Selected xassəsi deyil, Itemlndex xassəsi istifadə edilmişdir.
İndi isə DragOver və DragDrop hadisə emaledicilərini ListBoxl komponenti üçün yaratmaq lazımdır. Burada da müvafiq prosedurlana kodlarında ListBoxl əvəzinə ListBox2 və tərsinə - ListBox2 əvəzinə ListBoxl yazmaq lazımdır.
F9 klavişini basaraq layihəni yerinə yetirin və nəticələri yoxlayın. Görəcəksiniz ki, elementlərin düymələrlə və mausla yerlərinin dəyişdirilməsi əməliyyatı birbirindən fərqli qaydada yerinə yetirilir.
Mausla və düyməni basmaqla elementlərin yerlərinin dəyişdirilməsinin eyni qayda ilə yerinə yetirilməsi üçün, DragDrop hadisə emaledicilərində, uyğun düymələr üçün, OnClick hadisə emaledicisinin kodlarını yazmaq lazımdır. Bu prosedur iki formada yazıla bilər:
ProcedureTForml.ListBox2DragDrop(Sender,
Source:TObject; X, Y: Integer) ;
begin btnRight. Click; // O biri düymə üçün btnLef t. Click; end;
və ya
procedureTFormi.ListBox2DragDrop(Sender, Source:TObject; X, Y: Integer) ;
begin btnRightClick(Sender); end;
Beləliklə, siyahılar arasında element mübadiləsini icra edən proqramm tam mətni aşağıdakı kimi olacaqdır:
unit Unitl;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,