Форум: "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.007 c
