Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.588 Beiträge
Delphi 12 Athens
|
AW: Sound abspielen bei wechseln des Tabs einer PageControl ?
23. Apr 2012, 17:16
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;
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|