|
![](/i/favi32.png) Alqoritm, xassələri və təsvir üsullarıfənlərin adlarını daxil edin (bu adları koddarı da daxil etmək olar bu halda hərAlqoritmlesdirme-ve-Programlasdirmafə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
ListBox2. ExtendedSelect: =True; // seçilməsinə icazə verilir
ListBox2.Clear;
ListBoxl. DragMode :=dmAutomatic; //Mausla elementlərin
// yerlərinin dəyişdirilməsi
ListBox2. DragMode: =dmAutomatic; //əməliyyatını avtomatik
// başlamağa icazə verilir
end;
Kodlara əlavə edilmiş şərhlər və hər bir xassənin indiyədək verilmiş ətraflı izahı
bu prosedurun yerinə yetirdiyi əməliyyatları dərk etməyə imkan verir.
Buttonl düyməsi üzərində mausun düyməsini iki dəfə basaraq seçilmiş
elementləri ikinci siyahıya köçürən proseduru yaradın:
procedure TForml.btnRightClick(Sender: TObject)
Var
i:Integer;
begin
for i:= ListBoxl.Items.Count-1 downto 0 do
if ListBoxl.Selected [1] then
begin
ListBox2.Items.Add(ListBoxl.Items[i]);
ListBoxl.Items.Delete(i);
Dostları ilə paylaş: |
|
|