Bei 2tem Klick, Stoppung des Abspielens

[Arph]

Moin Moin,

ich hätte da eine Frage bzgl. des TMediaPlayers..

Wie kann ich ohne jeglichen Play oder Stop Button (sowie auch alle anderen des TMediaPlayers) eine Midi-Datei stoppen ?

Ich habe mir das Ganze so gedacht, dass wenn ich auf das Label klicke, das Midi-File startet (hab ich soweit hingekriegt, allerdings mit verstecktem TMediaPlayer, von dem nur der Prozess bezogen wird) und bei nochmaligen klicken anhält (also Stop).

Momentan sieht der Befehl ganz einfach aus:

Delphi-Quellcode:

MediaPlayer1.Play;

Ganz simpel zu erkennen, dass er beim Klicken des Labels, das File abspielen soll.

Könnte jemand den Rest posten ? :-D

PS: *totaler Anfänger*

EDIT: Mir fällt gerade auf, wenn ich Label1 anklicke (Midi-File spielt ab) und noch während dem Abspielens, Label2 anklicke, werden beide Files abgespielt.

Wie kann man das einstellen, dass das Midi-File von Label1 gestoppt wird und das Midi-File von Label2 nur allein zu hören ist ?

[Chrissi91]

Hi,

ich kann jetzt auch total daneben liegen ;), aber das, was du brauchst ist MediaPlayer1.Stop;

Dann speicher dir halt in einer Variable, ob schonmal geklickt wurde oder nicht.

[Arph]

Die Sache ist.. wie speicher ich das in einer Variablen ab ?

Wie bereits gesagt, bin ich ein blutiger Anfänger, der gerade mal das Nötigste bzgl. Delphi in der Schule gelernt hat.

[Phoenix]

Wie man eine Variable deklariert und da einen wert reinschreibt gehört eigentlich 'zum nötigsten'.

Delphi-Quellcode:

var
   schongeklickt: Boolean;

begin

   if schongeklickt then
   begin
     Mediaplayer.stop;
     schongeklickt := false;
   else
     schongeklickt := true;
   end;
end;

Natpürlich gehört die Variable aufs Form und nicht in die funktion, sonst ist sie out of scope.