DSPack::spielt einmal->danach nicht mehr

[Nils_13]

Meinst du das so ?

Delphi-Quellcode:

procedure TfrmMain.lbListMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if FGC= True then
  begin
    with frmVideo do
    begin
      if Filtergraph.Active then
      begin
        FilterGraph.Active := False;
        FilterGraph.ClearGraph;
        FilterGraph.Free;
        FGC := False
      end;
    end;
  end else
  begin
    with frmVideo do
    begin
      if not FilterGraph.Active then
        FilterGraph.Active := true;
      FilterGraph.Stop;
      FilterGraph.ClearGraph;
      FilterGraph.RenderFile(fFiles[playindex].pfad);
      FilterGraph.play;
      pause := True;
    end;
  end;
end;