Okay, aber ob ihr damit so viel anfangen könnt.
Quellcode der Buttons aus meinem Multimediaplayer:
Delphi-Quellcode:
procedure TForm1.PlayButtonClick(Sender: TObject);
begin
if Video = true then //Wenn Datei ein Video ist
VideoPlayer.Play
else
if filename <>'' then
Musicplayer.Play;
timer.Enabled:=true;
PlayNr := -1; // Das abspielen mit erstem song beginnen
PlayListTimerTimer(nil);
end;
procedure TForm1.PauseButtonClick(Sender: TObject);
begin
if Video = true then
VideoPlayer.Pause
else
Musicplayer.Pause;
end;
procedure TForm1.StopButtonClick(Sender: TObject);
begin
if Video = true then
VideoPlayer.Stop
else
Musicplayer.Stop;
end;
Die Felder im mainmenu verwenden den Selben Code, ich habe den Code hier dann einfach kopiert.