Misal. İki sadə siyahı arasında əlaqənin təşkili. Ms Windows-da, xüsusən Ms Excel və Ms Access-4ə bir çox hallarda bir siyahıdan müəyyən əlamətlərə görə elementlər seçilərək digər siyahıda yerləşdirilir və ya geri qaytarılır. Bu məsələni proqramlaşdıraq. Bunun üçün formaya iki ListBox, iki Label və iki Button düymələri yerləşdirin. 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
