Zitat von
Nils_13:
Es läuft nichts über Doppelklick, dann wird es auch noch unübersichtlicher. Wie soll ich denn überhaupt überprüfen, ob die Trackbar einen Maxwert hat, ohne Timer und vorallem macht es Sinn zwei zu haben, da man dann nich ständig den Videofensterfokus verliert, wenn man weiterspulen will (es sind zwei Forms, Videofenster ist eine Extraform). Hinzu muss ich die Endung von dem nächsten Lied ermitteln, um entsprechend zu handeln.
Meinst du das so ?
Delphi-Quellcode:
procedure TfrmMain.tListTimer(Sender: TObject);
begin
if lbList.Items.Count <= 1 then
exit;
if not tb1.Max - tb1.Position = tb1.Max then
Next_Audio;
if tb1.Position = tb1.Max then
begin
if (LowerCase(ExtractFileExt(fFiles[playindex].Dateiname)) = '.mp3') or
(LowerCase(ExtractFileExt(fFiles[playindex].Dateiname)) = '.wav') or
(LowerCase(ExtractFileExt(fFiles[playindex].Dateiname)) = '.wma') or
(LowerCase(ExtractFileExt(fFiles[playindex].Dateiname)) = '.aif') or
(LowerCase(ExtractFileExt(fFiles[playindex].Dateiname)) = '.aiff') or
(LowerCase(ExtractFileExt(fFiles[playindex].Dateiname)) = '.ogg') then
begin
Next_Audio;
end;
end else
begin
if frmVideo.tb1.Position = frmVideo.tb1.Max then
begin
Next_Video;
end;
end;
end;
Nein.
Ich versuche es mal anders zu erklären.
Der richtige weg ist dieser.
Wenn die Trackbar max ist dann mußt du zuerst das aktuelle File schließen.
Also in deine stop funktion springen.
1. stop
2. Timer ausschalten
3. alle werte auf Default setzen incl.. Trackbar = 0
4. Ext vom nächsten File in der Playliste prüfen
5. Timer einschalten
6. Datei abspielen
Logisch brauchst du einen Timer ohne gehts nicht.
gruß