Zitat von
jaegerschnitzel:
Mit dem unteren Teil komm ich nicht klar. PlayEpisodeNummer ist eine Funktion die beim klicken auf ein Menü aufgerufen wird. Wie genau mache ich das in Delphi??
In PlayEpisodeNummer wird ja nichts ausgeführt!!! Da Fehlen wohl einige Befehle.
Delphi-Quellcode:
var
Folgennummer: Integer;
procedure PlayEpisodeNummer(Index: Integer);
begin
case Index of
1:;
2:;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Folgennummer := 1;
PlayEpisodeNummer(Folgennummer);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Folgennummer := 2;
PlayEpisodeNummer(Folgennummer);
end;
Statt Menü's habe ich zwei Buttons genommen. Wird wohl als Hilfestellung reichen. Oder?