Guten Morgen,
das ist die Situation:
Ich habe mehrere Dateien selektiert.
Nach Klick wird ein neues Fenster angezeigt mit Infos (mp3 Tags),
wobei die m3-tags der ersten Datei gleich angezeigt werden.
Nun gibt es im neuen Fenster einen Button "next".
Nach Klick soll logischerweise zum nächsten markierten Eintrag gesprungen werden.
(die markierten Dateien liegen nicht twangsweise hintereinander)
Delphi-Quellcode:
procedure TForm16.nextSBClick(Sender: TObject);
var
i: integer;
begin
for i := temp to Form1.ShellListView1.Items.Count - 1 do
begin
if Form1.ShellListView1.Items[i].Selected then //wenn Datei selektiert wurde
begin
LadeId3v2TagUndMpegDetails(Form1.ShellListView1.Folders[i].PathName);
temp := Form1.ShellListView1.ItemIndex;
exit;
end;
end;
end;
temp ist eine globale Variable und wird beim anzeigen des Formulars auf 0 gesetzt.
Die Markierungen im sollen erhalten bleiben im ersten Formular.
Passieren tut nur leider nichts. Die Anzeige bleibt stehen wie sie ist (bei der ersten Datei)
Warum?
Wo hab ich da einen Denkfehler?
Gruß
ereetzer