Die Lösung, um
ALLE (FARBIG) MARKIERTEN Einträge (und nicht nur den Fokus-Eintrag) nacheinander abzuarbeiten ist:
Delphi-Quellcode:
procedure Tform_kunden.listbox_prodcount1Click(Sender: TObject);
var
counter: Integer;
begin
for counter := 0 to listbox_prodcount1.Items.Count - 1 do
begin
// markiert ?
if (listbox_prodcount1.Selected[counter] = True) then
begin
// hier die Einträge nacheinander verarbeiten
ShowMessage(listbox_prodcount1.Items[counter]);
end;
end;
end;
Have a nice day ...
Michel