Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.08.28;
Скачать: CL | DM;

Вниз

Копирование значения в 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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.011 c
2-1305552149
Соня
2011-05-16 17:22
2011.08.28
Запросы в ADODataSet


1-1264839776
kudatsky
2010-01-30 11:22
2011.08.28
Как скопировать слово из одного TMemo в другой ?


6-1240921108
Сергей
2009-04-28 16:18
2011.08.28
Как удалить динамически созданные ClientSocket при OnDisconnect?


4-1241950542
DelphiN!
2009-05-10 14:15
2011.08.28
Перехват WM_INPUT всех окон


15-1304627395
Юрий
2011-05-06 00:29
2011.08.28
С днем рождения ! 6 мая 2011 пятница