Нужно проиграть звук при наведении на компонент
antistatic © (2002-05-21 07:34:00)
Нужно проиграть звук при наведении на компонент, например, на
кнопку. А как только курсор выйдет из ёё области, остановить.
p^Zmei (2002-06-24 13:46:00) [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;
А вобщем можно там всякие еффекты - изменение
цвета или еще чего ...
Наверх 
ЧАТ |
Орешник |
|
