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;