| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как инвертировать выделение в lisbox'е? [D7]

Гриха ©   (2005-09-01 07:37:00) 

Сабж

---

Гриха   (2005-09-01 08:48:00) [1]

Все просто...

Я просто немного устал...:)

---

КиТаЯц   (2005-09-01 08:45:00) [2]

procedure TMainForm.Button1Click(Sender: TObject);
 var i: Integer;
begin
 for I:=0 to CheckListBox1.Items.Count-1 do begin
   CheckListBox1.Checked[i]:= not CheckListBox1.Checked[i];
 end;
end;

---

begin...end   (2005-09-01 08:41:00) [3]

var
 I: Integer;
begin
 with ListBox do
   for I := 0 to Pred(Items.Count) do
     Selected[I] := not Selected[I]
end.

P.S. Конечно, свойство ListBox.MultiSelect должно быть установлено в True.

---

Наверх