Timage per Button nächstes Bild einen Verz.

[capo]

Momentan mache ich es so:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var i :integer;
s:string;
begin
 for i := 0 to listbox1.Items.Count - 1 do
  begin
    if ListBox1.Selected[i] then
    begin
      s := listbox1.Items[i];
      Image32.Bitmap.LoadFromFile(extractfilepath(application.exename) + 'Zeichnungen\'+s);
     end;
  end;
end;

Ich markiere per Button die einzelnen Zeilen und führe dann obeigen Code aus.
Ist bestimmt nicht besonders elegant.

Gruss
Capo