Форум: "Начинающим";
Текущий архив: 2011.08.28;
Скачать: [xml.tar.bz2];
ВнизКопирование значения в CheckListBox -> ListBox Найти похожие ветки
← →
Артём (2011-05-17 20:44) [0]Здравствуйте! Подскажите пожалуйста как мне сделать копирование элементов из checklistbox в listbox.
var
a: integer;
procedure TForm1.Checked;
begin
ListBox2.Items.AddObject(scheckListBox1.Items[a], sCheckListBox1.Items.Objects[a]);
end;
procedure TForm1.sCheckListBox1ClickCheck(Sender: TObject);
begin
a:=sCheckListBox1.ItemIndex;
if sCheckListBox1.Checked[a]=true then begin
Checked;
end
else
UnChecked;
end;
procedure TForm1.UnChecked;
begin
ListBox2.Items.Objects[a].Free;
ListBox2.Items.delete(a);
end;
← →
Jeer © (2011-05-17 21:00) [1]
> if sCheckListBox1.Checked[a]=true
Вот с этим сначала разберись внимательно.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2011.08.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.003 c