[Listbox] MouseUp - "index überschreitet Maximum" wenn leer

[Aurelius]

Hallo DP'ler :hi:

Ich greife im MouseUp-Ereignis einer Listbox auf diese zu:

Delphi-Quellcode:

if Button = mbLeft then
begin
   i := lsbPlaylist.ItemIndex;
   Datei := lsbPlaylist.Items.Strings[i];
   GetInfos(Datei);
end;

Nur leider kommt, wenn die Listbox leer ist, der Fehler "Index überschreitet Maximum" (ist ja auch ganz logisch :D). Nur leider habe ich einfach keine Idee wie ich das lösen soll :wall:

[Bernhard Geyer]

wie wäre es mit einem:

Delphi-Quellcode:

if i > -1 then

-1 kennzeichnet das kein Eintrag ausgewählt wurde.

[Aurelius]

Mal schauen, meld mich gleich wieder :D

[Aurelius]

Geht leider nicht. Wenn ich auf die leere Listbox klicke wird i mit meinem Code nicht auf -1 sondern auf 0 gesetzt. Problem ist aber, dass i auch auf 0 gesetzt wird wenn 1 regulärer Eintrag in der Liste steht.

[rawsoul]

Das Problem ist mir auch schon aufgefallen. Habe es immer - wahrscheinlich unnötig unelegant - so gelöst:

Delphi-Quellcode:

if (lb.items.count>=0) and (lb.items[0]<>'') then [...]

[Aurelius]

Ich glaube ich habe die Lösung dafür gefunden. Es tritt dann auf wenn man den "dragmode" auf "Automatisch" stellt.

Trotdem Danke für die Tipps :D

[marabu]

Moin,

vielleicht möchtest du noch diesen Thread lesen: klick

Grüße vom marabu