Двойной щелчок по "чексу" в 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;

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