Текущий архив: 2002.08.12;
Скачать: 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 вся ветка
Текущий архив: 2002.08.12;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.015 c
