Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c