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

Вниз

Нужно проиграть звук при наведении на компонент   Найти похожие ветки 

 
antistatic   (2002-05-21 07:34) [0]

Нужно проиграть звук при наведении на компонент, например, на кнопку. А как только курсор выйдет из ёё области, остановить.


 
p^Zmei   (2002-06-24 13:46) [1]

Привет вот такой код:


procedure TControl1.OnMouseEnter(...)
begin
sndPlaySound("C:\SOUNDS\BELLS.WAV",SND_LOOP or SND_ASYNC);
end;
....
procedure TControl1.OnMouseLeave(...)
begin
sndPlaySound(nil,SND_LOOP or SND_ASYNC);
end;


Если не зарегистрированы соответствующие события
(FMouseEnter,FMouseLeave), то воспользуйся мессагами
WM_MOUSEENTER, WM_MOUSELEAVE - в public clause компонента
напиши:


private
procedure WMMouseEnter(var Msg : TWMMouseEnter);message WM_MOUSEENTER
....
implementation

procedure TComponent1.WMMouseEnter(var Msg : TWMMouseEnter);
begin
PlaySound(...);
inherited;//чесно гря щас не помню,
//может лучше Msg.result := 1;
end;


А вобщем можно там всякие еффекты - изменение
цвета или еще чего ...




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

Форум: "Media";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.54 MB
Время: 0.03 c
6-78568
Grizli
2002-08-23 10:48
2002.10.24
Инернет эксплорер.


1-78468
Groove
2002-10-12 19:35
2002.10.24
А на Cpp?


3-78251
Виталий Панасенко
2002-10-01 14:29
2002.10.24
Работа с FIBPlus


1-78448
greenrul
2002-10-11 19:50
2002.10.24
Указатели : if (Units


1-78358
Radiy
2002-10-14 11:26
2002.10.24
Знакогенератор клавиатурный





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