Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.07;
Скачать: CL | DM;

Вниз

Спасайте, мастера! Реакция на событие 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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.026 c
1-21027
kronprince
2002-09-26 19:47
2002.10.07
Как сделать аналог этого кода в ListView ???


14-21264
Romka
2002-09-13 12:55
2002.10.07
Нужна помощь . Очень , Очень.


1-20975
DiHLoS
2002-09-26 14:01
2002.10.07
Как распечатать StringGrid?


1-21052
QUE
2002-09-27 11:23
2002.10.07
MDI-Child из DLL


1-21058
X-Shadow
2002-09-24 19:16
2002.10.07
как в программе сделать так чтоб все ошибки не выводились?