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

Вниз

События от мышки   Найти похожие ветки 

 
Lucefer   (2003-03-06 16:28) [0]

Как в дельфи для панельки сэмулировать собыитя MouseIn, MouseOut?


 
Dms   (2003-03-06 16:39) [1]

зачем ?


 
NAlexey   (2003-03-06 16:44) [2]

Ну а собственно так не заработает?
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

procedure TMainForm.CMMouseLeave(var Message: TMessage);
begin
if Message.LParam = Integer(YourPanel1) then
(* *)
inherited;
end;


 
NAlexey   (2003-03-06 16:48) [3]

Да и еще, тоже самое естественно и для CM_MOUSEENTER...


 
Dms   (2003-03-06 16:53) [4]

все таки просили сэмулировать, а не отловить ...


 
Dms   (2003-03-06 16:54) [5]

2 автор:
все таки зачем ? с какой целью ?


 
NAlexey   (2003-03-06 16:59) [6]

>все таки просили сэмулировать, а не отловить ...
Согласен, прогнал...


 
Lucefer   (2003-03-07 08:07) [7]

Ответ нашёлся сам собой. И как всегда окольными путями :-)

Была безумная идея, хотел сделать всплывающую панельку (и сделал) - для элементов фильтра таблицы. Собственно вот что получилось.
Кладу панельку. На неё выкладываю элементы управления. Задаю высоту в 5уе. Т.е. маленькая полоска. Отлавливаю события приход/уход мышки - соответсвенно меняю высоту панельки.
Загвоздка:
Если заход в панельку осуществляется непосредственно из грида при помощи клавиатуры. Мышка-то остаётся хз в каком положении...

Но всё равно спасибо за ответы... :-)



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

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

Наверх





Память: 0.46 MB
Время: 0.009 c
14-64369
Delph
2003-03-05 15:20
2003.03.20
Исходники TextDataSet.pas


14-64278
Radion
2003-03-03 18:01
2003.03.20
Как написать


8-64229
Юра
2002-12-03 11:43
2003.03.20
Копировать в битмап фильм, играемый MediaPlayer


7-64398
GrBob
2003-01-20 20:19
2003.03.20
Перехват лампочки Scroll Lock на клавиатуре


14-64337
Sanyok
2003-03-04 19:11
2003.03.20
Как правильно установить делфи для всех пользователей на 2000?





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