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

Отслеживание кликов по пунктам Т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 это что?

---

← →
MBo ©   (2002-11-24 18:28) [7]

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

---

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

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

---

← →
Song ©   (2002-11-29 23:08) [9]

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

---

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

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



Память: 0.46 MB
Время: 0.012 c