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

birində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:
downloaded from KitabYurdu.org

---

199 
unit Unitl;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,  
Controls, Forms, Dialogs, StdCtrls;
Type
TForml = class(TForm)  
ListBoxl: TListBox;  
ListBox2: TListBox;  
btnRight: TButton;  
btnLeft: TButton;  
Label1: TLabel; 
 Label2: TLabel;
procedure FormCreate(Sender:TObject);  
procedure btnRightClick(Sender :TObject);  
procedure btnLeftClick(Sender:TObject);  
procedure ListBox2Drag0ver(Sender, Source:TObject; 
X,Y: Integer; State: TDragState; var Accept:Boolean);