Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.011 c
1-40097
Goblinus
2002-06-03 00:49
2002.06.13
MDI


1-40035
shulc
2002-05-30 19:12
2002.06.13
Мастера помогите!!!!! Как закрыть модальную форму?


8-40112
DenKop
2002-01-28 22:01
2002.06.13
DirectSound


8-40121
AlexDov
2002-01-25 14:53
2002.06.13
OpenGL в Bitmap


14-40152
IronHawk
2002-04-30 14:03
2002.06.13
Когда следующая встреча