Sound abspielen bei wechseln des Tabs einer PageControl ?

[DeddyH]

Ungetestet:

Delphi-Quellcode:

const
  SOUNDDIR = 'C:\Programm Files\Premaider\Livestreamtool\';
  
procedure TDeinForm.PageControlChange(Sender: TObject);
var
  SoundFile: string;
begin
  case PageControl.ActivePageIndex of
    0: 
      SoundFile := 'Sound1.wav';
    1:
      SoundFile := 'Sound2.wav';
    2:
      SoundFile := 'Sound3.wav';
    3:
      SoundFile := 'Sound4.wav';
    4:
      SoundFile := 'Sound5.wav';
    else
      SoundFile := '';
  end;
  if SoundFile <> '' then
    PlaySound(PChar(SOUNDDIR + SoundFile), 0, SND_FILENAME or SND_ASYNC);    
end;