Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
1-39990
cpp
2002-06-03 14:34
2002.06.13
Разница в часах минутах и секундах


8-40116
GHR
2002-01-20 16:40
2002.06.13
Delphi and AutoCAD


3-39957
jaric
2002-05-20 19:56
2002.06.13
Проблемs с ADO при работе в отдельном потоке


1-40072
Korona
2002-06-01 19:37
2002.06.13
Убрать все кнопки кроме Close в MDIChild


4-40208
Ivan N.Voronov
2002-04-09 15:32
2002.06.13
Задержка выполнения вызываемого приложения с помощью ShellExecute





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский