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

Вниз

Перенаправление событий мыши   Найти похожие ветки 

 
hooch   (2004-09-21 07:31) [0]

День добрый !
Столкнулся с такой проблемой: есть контрол который не имеет фокуса и над которым находится указатель мыши, если на мыши крутиться колесо нужно перетранслировать это событие контролу (не передвая фокус).
Сначала на событие OnMouseEnter написал SetCapture(контрол.Handle) не помогло, потом на ApplicationEvent.OnMessage проверял если мышь над контролом и сообщение WM_MOUSEWHEEL пересылал ему ето сообщение и через SendMessage и через Perform(CM_MOUSEWHEEL) тоже не помогло, подсткажите как быть ?


 
КаПиБаРа ©   (2004-09-21 08:25) [1]

hooch   (21.09.04 7:31)
сообщение WM_MOUSEWHEEL пересылал ему ето сообщение и через SendMessage и через Perform(CM_MOUSEWHEEL) тоже не помогло, подсткажите как быть ?


Пересылай не MOUSEWHEEL, а сообщения вызывающие конкретные действия, например проклутку ScrolBar или изменение масштаба.


 
hooch   (2004-09-21 08:44) [2]

так WM_MOUSEWHEEL и вызывает конктреное дейстиви - изменение масштаба


 
КаПиБаРа ©   (2004-09-21 08:56) [3]

hooch   (21.09.04 8:44) [2]
А может в обработчике WM_MOUSEWHEEL этого компонента стоит проверко на наличие фокуса или еще что-то.

==============================
Вещи не такие, какими кажутся.
==============================


 
_ALEXey_   (2004-09-21 10:46) [4]

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
 Button1.Perform(WM_KEYDOWN, VK_SPACE, 0)
end;


 
_ALEXey_   (2004-09-21 10:47) [5]

[4] Извиняюсь, это не сюда.


 
hooch   (2004-09-21 11:41) [6]

Мда, может быть и так



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

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

Наверх




Память: 0.45 MB
Время: 0.039 c
14-1094822744
DSKalugin
2004-09-10 17:25
2004.10.03
Компоненты доступа к данным


6-1087309655
Shade
2004-06-15 18:27
2004.10.03
Передача / Приём файлов при помощи модема (свой Hyperterminal)


1-1095349984
jenbond
2004-09-16 19:53
2004.10.03
Прервать выполнения цикла


14-1094455946
1008
2004-09-06 11:32
2004.10.03
Вдруг кому интересно.


6-1090492324
Duk
2004-07-22 14:32
2004.10.03
Как с п-ю TMemoryStream переслать текст от ServerSocket к ClienSo





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