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

Вниз

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

 
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 вся ветка

Текущий архив: 2002.10.24;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.013 c
3-78263
NeyroSpace
2002-10-02 12:47
2002.10.24
Есть ли какие-ниб. системные переменные, характеризующие...


3-78309
_VaaL_
2002-10-02 10:53
2002.10.24
Как запаролить програмно?


1-78369
sascha
2002-10-15 07:17
2002.10.24
Поясните код.


4-78706
Rasa
2002-09-10 03:18
2002.10.24
Помогите доками по интерфейсам!


1-78477
AlexHEY
2002-10-11 22:45
2002.10.24
Как перезагрузить программу?