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

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

Двойной щелчок по "чексу" в CheckListBox'e

Washington ©   (2008-02-13 12:17:00) 

Ситуёвина такая - кликаю по чексу один раз, ставится галочка, при двойном щелчке галочка соответственно ставится и убирается. Мне надо, чтобы двойной щелчок обрабатывался так же, как одинарный, т.е. чтобы ставилась галочка и уже не убиралась. Как это сделать? Подскажите плз.

---

Washington   (2008-02-13 13:02:00) [1]

> clickmaker ©   (13.02.08 12:50) [1]

Большущий респект. Спасибо.

---

clickmaker   (2008-02-13 12:50:00) [2]

procedure TForm1.FormCreate(Sender: TObject);
begin
 FOldWndProc := CheckListBox1.WindowProc;
 CheckListBox1.WindowProc := NewWndProc;
end;

procedure TForm1.NewWndProc(var m: TMessage);
begin
 if (m.Msg = WM_LBUTTONDBLCLK) then
   m.Result := 1
 else
   FOldWndProc(m);
end;

---

Наверх