Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.013 c
14-35434
lak_b
2002-07-17 13:42
2002.08.12
Комп буйствует


3-35147
Oduvan
2002-07-21 21:27
2002.08.12
Проблема с кодировками в InterBase6


1-35365
Kurt
2002-07-29 18:19
2002.08.12
Поиск вверх/вниз по RichEdit (Memo)! и чтоб было выделение и пока


1-35368
wonder_boy
2002-07-29 12:19
2002.08.12
HTML HELP через API


4-35493
Yonic
2002-06-04 16:40
2002.08.12
OnTop