Форум: "Основная";
Текущий архив: 2002.06.13;
Скачать: [xml.tar.bz2];
ВнизПишу наследника 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.004 c