ТCheckListBox

← →
V.Turecky (2002-07-30 16:11) [0]

Добрый день. Столкнулься со следующей проблемой. При выборе определенного параметра (TStrings) в ТCheckListBox я отмечаю или снимаю птичку с него такой конструкцией:

if CheckListBox1.ItemIndex <> -1 then begin if CheckListBox1.Checked[CheckListBox1.ItemIndex] then CheckListBox1.Checked[CheckListBox1.ItemIndex] := True else CheckListBox1.Checked[CheckListBox1.ItemIndex] := False; end;

Всё работает, но когда щелкаешь по самому квадратику с птичкой, то птичка сниматься или ставиться не хочет, потому что срабатывает моя вышеуказанная функция. Находится она у меня в событии OnClick ТCheckListBox. Помогите.

← →
nikolo © (2002-07-30 16:21) [1]

Не понял зачем вообще использовать эту функцию? Объясни по-русски чего хочешь-то :)

← →
V.Turecky (2002-07-30 16:33) [2]

> Не понял зачем вообще использовать эту функцию? Объясни
> по-русски чего хочешь-то :)

Я хочу, чтобы при клике по пункту (тексту) в ТCheckListBox возле него ставилась или, если уже присутствует, снималась птичка.

← →
mukha © (2002-07-30 22:29) [3]

Заполни CheckListBox1 чем-нибудь и попробуй так:

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
var i:integer;
begin
for i:=0 to CheckListBox1.Items.Count-1 do
CheckListBox1.Checked[i]
end;

А если на события OnClick и OnClickCheck повесить вот это?:

procedure TForm1.CheckListBox1Click(Sender: TObject); begin CheckListBox1.Checked[CheckListBox1.ItemIndex] := not CheckListBox1.Checked[CheckListBox1.ItemIndex] end;

← →
Mike Kouzmine (2002-07-31 10:27) [5]

А так что, не работает?
procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
Inherited;
case CheckListBox1.ItemIndex of
0 : //Пошел туда;
1 : //Пошел сюда
end;
end;

ТCheckListBox Найти похожие ветки