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

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

Ctrl, чтоб он всегда "был зажат" [D6, WinXP]

temp456 ©   (2007-02-02 13:22:00) 

Как в TListBox сделать так, чтобы при опции MultiSelect не надо было зажимать Ctrl, чтоб он всегда в этом контроле "был зажат".

---

temp456   (2007-02-02 14:15:00) [1]

Спасибо!

Но ничего кроме этого

ListBox1.ExtendedSelect:=false;
ListBox1.MultiSelect:=true;

не надо.

---

Elen   (2007-02-02 14:00:00) [2]

> Ты вероятно хотела написать так:

Гы Гы. Да.


> Ещё проще записать так:

Да проще, но у меня чето не катит так :(

---

TRUNK   (2007-02-02 13:55:00) [3]

> Elen ©   (02.02.07 13:39) [1]

Ты вероятно хотела написать так:
if ListBox1.Selected[ListBox1.ItemIndex] then
ListBox1.Selected[ListBox1.ItemIndex] := falseelse
 ListBox1.Selected[ListBox1.ItemIndex] := true;

Ещё проще записать так:

ListBox1.Selected[ListBox1.ItemIndex] := not ListBox1.Selected[ListBox1.ItemIndex];

---

Elen   (2007-02-02 13:40:00) [4]

> temp456

И еще : Выставь ListBox1.ExtendedSelect:=false; ListBox1.MultiSelect:=true;

---

Elen   (2007-02-02 13:39:00) [5]

> temp456

Ненадо зажимать контрол. Сделай так :
procedure TForm1.ListBox1Click(Sender: TObject);
begin
if ListBox1.Selected[ListBox1.ItemIndex] then
ListBox1.Selected[ListBox1.ItemIndex]:= true else
  ListBox1.Selected[ListBox1.ItemIndex]:=false;
end;

---

Наверх