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

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

Гы Гы. Да.

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

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

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

Спасибо!

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

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

не надо.

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