| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Александр ©   (2002-11-24 15:47:00) 

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

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

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

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

---

Song   (2002-11-29 23:08:00) [1]

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

---

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

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

---

MBo   (2002-11-24 18:28:00) [3]

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

---

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

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

---

MBo   (2002-11-24 18:16:00) [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:07:00) [6]

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

---

MBo   (2002-11-24 18:06:00) [7]

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

---

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

> F1 - TCheckListBox.OnClickCheck


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

---

TTCustomDelphiMaster   (2002-11-24 16:20:00) [9]

F1 - TCheckListBox.OnClickCheck

---

Наверх