Скачать: CL | DM;

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

---

← →
AK-74 ©   (2002-07-31 00:55) [4]

А если на события 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;

---

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

Скачать: CL | DM;



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