Отслеживание кликов по пунктам ТCheckListBox?

← →
Александр (2002-11-24 15:47) [0]

Здравствуйте!

Как проверить: была ли поставлена или снята птичка с четвертого пункта компонента ТCheckListBox?
Я пытался использовать State, но это не сработало:

procedure TForm1.CheckListBox1Click(Sender: TObject); var Stat: TCheckBoxState; begin if CheckListBox1.State[4] = Stat then ShowMessage("OK"); end;

Пожалуйста, помогите!

← →
TTCustomDelphiMaster © (2002-11-24 16:20) [1]

F1 - TCheckListBox.OnClickCheck

← →
Александр (2002-11-24 17:58) [2]

> F1 - TCheckListBox.OnClickCheck

Ну, и причем тут это? Мне пофиг что было сделано: поставлена птичка или нет, мне нужно узать было ли это вообще сделано над этим пунктом CheckListBox"а.

← →
MBo © (2002-11-24 18:06) [3]

А кто будет думать и хелп читать? Тебе дали верную наводку - где отслеживать.

← →
Александр (2002-11-24 18:07) [4]

Меня интересует ни где отслеживать а как отслеживать?

← →
MBo © (2002-11-24 18:16) [5]

я же говорю - ДУМАТЬ надо

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
begin
if checklistbox1.Checked[3] <> saved then begin
saved:=checklistbox1.Checked[3];
if saved then
caption:="It is checked!"
else
caption:="It is NOT checked!";
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
saved:=checklistbox1.Checked[3];
end;

← →
Александр (2002-11-24 18:21) [6]

Спасибо, а saved это что?

глобальная переменная или поле формы
saved:boolean

← →
Александр (2002-11-29 22:57) [8]

Огромное спасибо, всё работает. Но у меня не стандартный компонент и свойства
OnClickCheck у него нет. Как быть? Помогите! Я пытался создать это свойство в этом компоненте, но оно не стало работать. Та вообще компонент хитрый, кое-что создаеться в ран-тайме...

onMouseDown и проверяй координаты.

Отслеживание кликов по пунктам ТCheckListBox? Найти похожие ветки