Hi,
das mit der ImageList habe ich verworfen ich lasse die betreffenden Pfade zu den Bildern jetzt in eine ListBox laden und lade sie von da in ein TImage, allerding scheitert es daran das wenn ich mehr als ein bild habe er mir immer nur das erste anzeigt:
Delphi-Quellcode:
procedure TForm2.ClickNext(Sender: TObject);
begin
Image1.Picture.LoadFromFile(ListBox1.Items.Strings[0]);
Ich habe schon versucht mit (+ 1) zu arbeiten allerdings funktioniert das nicht...
Mfg, Steve
EDIT/ Für andere die es interessiert ich habe es so gemacht
Delphi-Quellcode:
procedure TForm2.FormCreate(Sender: TObject);
begin
MainForm.ZQuery2.Close;
MainForm.ZQuery2.SQL.Text := 'SELECT * FROM produktinfos WHERE ArtikelNr LIKE :ProduktID';
MainForm.ZQuery2.ParamCheck := True;
MainForm.ZQuery2.ParamByName('ProduktID').AsString;
MainForm.ZQuery2.Open;
end;
procedure TForm2.ClickNext(Sender: TObject);
begin
Image1.Picture.LoadFromFile(ListBox1.Items.Strings[0]);
end;
procedure TForm2.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
Anzahl.Caption:= '0';
ListBox1.Clear;
MainForm.ZQuery2.ParamByName('ProduktID').AsString:= DBEdit1.Text;
MainForm.ZQuery2.Refresh;
begin
while not MainForm.ZQuery2.eof do begin
ListBox1.Items.Add(MainForm.ZQuery2.fieldbyname('Foto').AsString);
MainForm.ZQuery2.Next;
Anzahl.Caption:=IntToStr(ListBox1.Items.Count);
end;
end;
end;