opendialog spinnt

[EWeiss]

Zitat von mkinzler:

Schliest du den Dialog nur oder gibst du hn frei?

nur schließen.

Delphi-Quellcode:

procedure TfrmMain.AddClick(Sender: TObject);
var
  IntI: Integer;

begin

  plist := TStringList.Create;

  playlist.Clear;
  plist.Clear;

  if StreamOpen.Execute then
  begin

    for IntI := 0 to StreamOpen.Files.Count - 1 do
    begin
      //get file
      StreamFile := StreamOpen.Files[IntI];
      playlist.Items.add(ExtractFileName(AnsiLeftStr(StreamFile ,Length(StreamFile)-4)));
      plist.Add(StreamFile);
    end;
  end;

  if playlist.Count <> 0 then
  begin
    playlist.Selected[playlist.TopIndex] := True;

    btnPlay.Enabled := True;
    btnStop.Enabled := True;
    btnPrev.Enabled := True;
    btnPause.Enabled := True;
    btnNext.Enabled := True;
  end;
  PlaylistCount := playlist.Count;
  PlaylistPos   := playlist.ItemIndex;
end;

gruss