Текущий архив: 2007.04.15;
Скачать: CL | DM;

Вниз

CheckBox   Найти похожие ветки 

← →
_Knight_   (2007-03-26 00:02) [40]

ToggleClickCheck — отказался приватным, поэтому пришлось перекрыть клаву и мышь.

---

← →
_Knight_   (2007-03-26 10:43) [41]

Молчанье знак согласия... наверно правильно.

---

← →
RASkov   (2007-03-26 13:19) [42]

> [41] _Knight_   (26.03.07 10:43)

Не много подправлю:

procedure TCheckListBoxWithRO.KeyPress(var Key: Char);
begin
 if not FReadOnly then inherited else
   if Assigned(OnKeyPress) then OnKeyPress(self, Key);
end;

procedure TCheckListBoxWithRO.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 if not FReadOnly then inherited else
   if Assigned(OnMouseDown) then OnMouseDown(self, Button, Shift, X, Y);
end;

Не хотелось бы полность лишать таких событий....

---

← →
_Knight_   (2007-03-26 13:24) [43]

Ну да.. спасибо.

---

← →
_Knight_   (2007-03-26 13:27) [44]

> Washington   (10.03.07 21:12)

Готовой решение... "Налетай не скупись, покупай живопИсь" © (Операция Ы)

---

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

Текущий архив: 2007.04.15;
Скачать: CL | DM;

Наверх

Память: 0.53 MB
Время: 0.048 c