Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.07;
Скачать: [xml.tar.bz2];

Вниз

Спасайте, мастера! Реакция на событие Ctrl + PgUp   Найти похожие ветки 

 
Bond   (2002-09-26 17:53) [0]

Как сделать реакцию на событие Ctrl + PgUp. в компоненте HotKey такой комбинации клавиш нет. Уж как не бился, ничего не помогает. Может кто-то сталкивался с подобной проблемой - подскажите


 
Юрий Зотов   (2002-09-26 18:23) [1]

Для контрола - OnKeyDown.
Глобально - Application.OnMessage.


 
Bond   (2002-09-27 09:44) [2]

to Юрий Зотов
А какой Message слать?


 
Юрий Зотов   (2002-09-27 09:54) [3]

Не слать, а обрабатывать. Вам же реакция нужна? Вот и реагируйте.

А какой Message... Ну... догадайтесь с трех раз, какое сообщение система посылает программе при нажатии PgUp?

WM_KEYDOWN, конечно. А состояние Ctrl проверяйте в обработчике - GetKeyState.


 
Bond   (2002-09-27 10:18) [4]

to Юрий Зотов
Заранее извиняюсь за превышающую все рамки приличия наглость, но не могли бы вы дать кусок кода? Я раньше никогда не работал с Message, а в хелпе информация довольно скудная


Заранее спасибо


 
Song   (2002-09-27 10:23) [5]

onKeyDown:

IF (Key=VK_PRIOR) and (ssCtrl in Shift) then ..


 
Bond   (2002-09-27 10:29) [6]

to Song
Чье событие onKeyDown?


 
Юрий Зотов   (2002-09-27 10:41) [7]

Переделанный пример их хелпа.

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage;
end;

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if (Msg.message = WM_KEYDOWN) and
(Msg.wParam = VK_PRIOR) and
(GetKeyState(VK_CONTROL) < 0) then
begin
... // Нажато Ctrl+PgUp
Handled := True // Если надо, блокируем стандартную обработку
end;
end;


 
Bond   (2002-09-27 10:51) [8]

to Юрий Зотов

Огромное спасибо!



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

Форум: "Основная";
Текущий архив: 2002.10.07;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.007 c
1-20970
Tualan
2002-09-25 12:07
2002.10.07
Масштабирование RichEdit


4-21320
Oxy2
2002-08-17 17:44
2002.10.07
По поводу одновременного выполнения кода


1-21152
kull
2002-09-25 13:21
2002.10.07
Backup ветки реестра...


4-21337
Roxtady
2002-08-21 17:28
2002.10.07
Как создать форму (окно) ?


1-21143
Pikuzza
2002-09-25 21:50
2002.10.07
Помогите решить следующую задачу на Delphi





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский