Hi Leute,


Hab da Folgendes Problem ich möchte per drag drop was ja funktioniert dank SHARKY mp3 in eine listview schieben wen die datei abgelegt worden ist soll mir die listview titel song u.s.w. anzeigen könnte mal jemand schauen was ich falsch hab.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if (Sender is TListBox) then
  begin
    Accept := True;

  end;
end;

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  eintrag : TListItem;
  ndx : Integer;
begin
  if Source is TListBox then
  begin
    for ndx := 0 to Pred (ListBox1.Count) do // Alle Einträge durchlaufen
    begin
      if (ListBox1.Selected[ndx]) then // Wenn Zeile markiert dann.
      begin
        eintrag := ListView1.Items.Add; // Neue Zeile erzeugen
        eintrag.Caption := ListBox1.Items[ndx]; // Text zuweisen
         SetFilePara;
      end;
    end;
  end;
end;
//************************************************************
procedure TForm1.SetFilePara;
var
  item1: TListItem;
  //Die Arrays brauchst wohl nicht wirklich
  //ArrFiles, ArrTitel, ArrArtist, ArrAlbum: Array of String;
  i: Integer;
  MP3_info: TID3Tag;
begin
      MP3_info := readID3Tag(item1.Caption);
      item1.Caption := MP3_info.Titel; //ArrArtist[0];
      item1.SubItems.Add(MP3_info.Artist{ArrTitel[0]});
      item1.SubItems.Add(MP3_info.Album{ArrAlbum[0]});
end;

gruss bernd

Hi,

ich gehe mal davon aus, dass die Items nicht hinzugefügt werden.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.SetFilePara;
var
  item1: TListItem;
  //Die Arrays brauchst wohl nicht wirklich
  //ArrFiles, ArrTitel, ArrArtist, ArrAlbum: Array of String;
  i: Integer;
  MP3_info: TID3Tag;
begin
      MP3_info := readID3Tag(item1.Caption);
      item1 := ListView1.Items.Add; // Das muss hin, dann sollte es die Einträge anzeigen
      item1.Caption := MP3_info.Titel; //ArrArtist[0];
      item1.SubItems.Add(MP3_info.Artist{ArrTitel[0]});
      item1.SubItems.Add(MP3_info.Album{ArrAlbum[0]});
end;

dank dir Manu hab aber jetzt im drag drop drin geht ganz gut

gruss bernd

Zitat von Bernd29bln:

dank dir Manu hab aber jetzt im drag drop drin geht ganz gut

gruss bernd

Hihi, der Fehler passiert mir auch immer wieder