Главная страница
    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.44 MB
Время: 0.008 c
3-78253
Prooksius
2002-10-02 10:25
2002.10.24
Не работает запрос...


14-78617
Calmterror
2002-10-01 16:16
2002.10.24
Новый форум


1-78490
alxx
2002-10-13 13:39
2002.10.24
Переход фокуса


7-78695
TsaturSoft
2002-08-13 22:20
2002.10.24
Иконка каталога


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