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

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);
//procedure ListBox2DragDrop (Sender,Source:TObject;
X, Y:Integer);
procedure ListBoxlDragOver (Sender, Source: TObject; X,Y: Integer; State: TDragState; var Accept: Boolean); procedure ListBox2DragDrop(Sender,Source: TObject;
X, Y:Integer);
procedure ListBoxlClick (Sender :TObject);
//procedure ListBoxlDragDrop (Sender, Source: TObject;
X, Y:Integer);
private
{ Private declarations }
Public
{ Public declarations }
end;
var
Form1: Tform1;
Implementation
{$R *.DFM}
procedure TForml.FormCreate(Sender:TObject);
begin
Label1.FocusControl:=ListBox1;
Label2.FocusControl:= ListBox2;
ListBoxl.Sorted:= False; // Düzləndirmə qadağan
ListBox2.Sorted:= False; // edilir
ListBoxl.Multi Select: = True; // Bir neçə elementin
ListBox2.Multi Select: =True; // seçilməsinə icazə verilir ListBoxl.Extended Select: = True; // Klaviatura ilə elementin ListBox2.Extended Select: = True; // seçilməsinə icazə verilir