Текущий архив: 2005.09.25;
Скачать: CL | DM;

Вниз

Как инвертировать выделение в lisbox е?   Найти похожие ветки 

← →
Гриха ©   (2005-09-01 07:37) [0]

Сабж

---

← →
begin...end ©   (2005-09-01 08:41) [1]

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.

---

← →
КиТаЯц ©   (2005-09-01 08:45) [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;

---

← →
Гриха ©   (2005-09-01 08:48) [3]

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2005.09.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.096 c