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

Вниз

Ctrl, чтоб он всегда "был зажат"   Найти похожие ветки 

← →
temp456   (2007-02-02 13:22) [0]

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

---

← →
Elen ©   (2007-02-02 13:39) [1]

> 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;

---

← →
Elen ©   (2007-02-02 13:40) [2]

> temp456

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

---

← →
TRUNK ©   (2007-02-02 13:55) [3]

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

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

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

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

---

← →
Elen ©   (2007-02-02 14:00) [4]

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

Гы Гы. Да.


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

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

---

← →
temp456   (2007-02-02 14:15) [5]

Спасибо!

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

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

не надо.

---

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

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

Наверх

Память: 0.45 MB
Время: 0.041 c