Звук при наведении мышкой на кнопку

[Syltan]

Как сделать, чтоб происходил звук при наведении мышкой на кнопку баттон и отдельно на картинку кнкопку?

[Виталий Желтяков]

Сначала надо звук сжать при помощи brc32.exe (в параметрах вызова написать путь к звуковому файлу). Получиться res-фаил. Его кидаем в проект и подключаем:

implementation

{$R *.dfm}
{$R notify.res}

Затем используем процедуру:

procedure MessageSound;
var
  hResource: THandle;
  pData: Pointer;
begin
  hResource:=LoadResource( hInstance, FindResource(hInstance, 'notify', RT_RCDATA));
  try
    pData := LockResource(hResource);
    if pData = nil then
      raise Exception.Create('Cannot read notify');
    // Здесь pData указывает на MyWave
    // Теперь можно, например, проиграть его (Win32):
    PlaySound('notify', 0, SND_MEMORY);
  finally
    FreeResource(hResource);
  end;
end;

ну и помещаем её на движение мыши + триггер.