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

Двойной щелчок по "чексу" в CheckListBox e   Найти похожие ветки 

← →
Washington ©   (2008-02-13 12:17) [0]

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

---

← →
clickmaker ©   (2008-02-13 12:50) [1]

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;

---

← →
Washington ©   (2008-02-13 13:02) [2]

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

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

---

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

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



Память: 0.45 MB
Время: 0.01 c