Hi,
so Bilder Anzahl usw. zeigt er jetzt alles an das Navigieren zwischen den Bildern geht auch allerdings habe ich jetzt (wiedermal) ein anderes Problem mit dieser Procedure:
Delphi-Quellcode:
procedure TForm2.FormActivate(Sender: TObject);
begin
TDP.Text:= 'Z:\Daten\' + DBEdit1.Text + '\TDP';
Tech.Text:= 'Z:\Daten\' + DBEdit1.Text + '\Technologie';
Kalk.Text:= 'Z:\Daten\' + DBEdit1.Text + '\Kalkulation';
IDNR.Text:= 'Z:\Daten\' + DBEdit1.Text;
TDPCreate.Text:= 'Z:\Daten\' + DBEdit1.Text + '\TDP';
KalkCreate.Text:= 'Z:\Daten\' +DBEdit1.Text + '\Kalkulation';
TechCreate.Text:= 'Z:\Daten\' +DBEdit1.Text + '\Technologie';
i := 0;
Image1.Picture := nil;
Anzahl.Caption:= '0';
Jetzt.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);
if ListBox1.Items.Count > 0 then
Image1.Picture.LoadFromFile(ListBox1.Items.Strings[0]);
Jetzt.Caption := IntToStr(i+1);
Edit1.Text:= ListBox1.Items.Strings[0];
end;
end;
end;
Wenn ich jetzt im DBGrid einen Datensatz markiere zeigt er mir in einer anderen Form die Daten an. Nun soll er mir wenn das Form angeklickt wird die Bilder dazu laden, so weit so gut das macht er auch allerdings wenn das Form den Focus verliert und wieder angeklickt wird zeigt er mir nur noch ein bild an obwohl mehrere da sind. "Theorethisch müsste er doch erneut alle in die ListBox laden! Oder?
Mfg, Steve