Məsələnin mahiyyəti ondan ibarətdir ki, birinci siyahı fənlərin adları ilə doldurulur, layihə işə salındıqdan sonra ikinci siyahı təmizlənir. Hər iki siyahıda bir neçə element seçilə bilər. Sağa sərlövhəli düymə basıldıqda birinci siyahıdan seçilən element ikinci siyahıya köçürülür. Sola sərlövhəli düyməni basdıqda isə ikinci siyahıda seçilmiş element birinci siyahıya köçürülür. Bu köçürmələri mausla da (drag-and-drop texnologiyası ilə) yerinə yetirmək olar. Layihədə komponentlərin sərlövhələrini şəklə uyğun müəyyənləşdiri (Form - Fənn və imtahanlar, Buttonl-Sağa, Button2-Scla Buttonl düyməsinin Name xassəsinə btnRight, Button2 düyməsinin Name xassəsinə btnLeft adları müəyyən edin (komponentlərin Naıse xassəsinə adlan yalnız latın hərflərindən istifadə etməklə təyin etmək olar). Name xassəsi istifadə olunduqda prosedurların sərlövhəsində komponentin öz adı deyil, Name xassəsində göstərilən ad yazılır, məsələn, procedure TForml.btnRightClick(Sender:TObject); ListBoxl komponentini seçib, Obyektlər inspektorunda Items xassəsinin qarşısında mausun düyməsini basaraq açılan String List EJamr pəncərəsindən fənlərin adlarını daxil edin (bu adları koddarı da daxil etmək olar bu halda hər bir fənn üçün prosedurda ListBoxl. Items. Add - İnformatika1) ; və s. yazmaq lazımdır). Formanın boş sahəsində mausun döyməsini iki dəfə basaraq yunitə aşağıdakı kodları yazın. procedure TForml.FormCreate(Sender: TObject); begin Labell.FocusControl:=ListBoxl; Label2.FocusControl:=ListBox2; ListBoxl.Sorted:=False; // Düzləndirmə qadağan ListBox2.Sorted:=False;// edilir ListBoxl.MultiSelect:=True;//Bir neçə elementin ListBox2.MultiSelect:=True;// seçilməsinə icazə verilir ListBoxl. ExtendedSelect: =True;// Klaviatura ilə elementin
