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

Вниз

Пишу наследника TMemo...   Найти похожие ветки 

← →
Dimedrol ©   (2002-05-31 17:12) [0]

Коллеги, вот такая грабля...
Делаю сабж и перекрываю у него
обработчики


private
{ Private declarations }

FOnCTRL : TCTRLEvent;

procedure WMKeyUp(var Message: TWMKeyUp); message WM_KeyUp;
procedure WMKeyDown(var Message: TWMKeyDown); message WM_KeyDown;
// procedure WMChar(var Message: TWMChar); message WM_CHAR;
protected



Мне нужно отловить нажатие одного CTRL
так вот же, у Мемо, как известно есть свои события
OnKeyUp, OnKeyDown и т.п.


Моя процедура выглядит так


procedure TPetitMemo.WMKeyUp(var Message: TWMKeyUp);
begin
with TMessage(Message) do
begin
if (WPARAM=17) and (not IsBitSet(KBD_STAT, 1)) then
begin
if Assigned(OnCTRL) then
OnCTRL(Self); // Calling Event !
KBD_STAT:=0; //CTRL is released - reset all values
end;

if (WPARAM<>17) and (not IsBitSet(KBD_STAT, 0)) then BitOff(KBD_STAT, 1);
if WPARAM=17 then KBD_STAT:=0; //CTRL is released - reset all values
end;

Inherited DefaultHandler(Message);
end;



Вроде и Inherited делаю, а в результате события от TMemo OnKeyUp, OnKeyDown
пропадают. То есть они НЕ НАСТУПАЮТ в программе... ;-(

Где я накозлил ?


И еще вот, вдогонку -
А как перехватить ALT ?
Что-то не могу никак....

---

← →
Dimedrol ©   (2002-06-03 10:54) [1]

Что... никто не знает ;-(

---

← →
Виктор ©   (2002-06-03 11:57) [2]

попробуй заменить
Inherited DefaultHandler(Message);
на
Inherited;

---

← →
vlv ©   (2002-06-03 12:06) [3]

Для таких вещей лучше переопределять обработчик CN_KEYDOWN:
procedure CNKeyDown(var Message: TWMKeyDown); message CN_KEYDOWN;

---

← →
Dimedrol ©   (2002-06-03 17:34) [4]

Спасибо, Виктор, помогло !

---

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

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

Наверх

Память: 0.47 MB
Время: 0.007 c