aus DB Pfad lesen und Bild anzeigen

[Christian18]

Hallo,

eine Frage habe ich noch! Ich habe verschiedene Datenbanken. In diesen Paradox 7 Datenbanken sind Pfade gespeichert. Ich habe jetzt einen Button auf meiner Form und wenn ich den klicke, dann öffnet sich ein neues Fenster (nicht dynamisch erstellt)! In diesem Fenster sollen anschließend dann die bilder angezeigt werden. Und um das ganze zu verschönern hatte ich mir gedacht wollte ich immer vier bilder neben einander haben. wie kann ich das machen. ich hatte es auch schon einmal versucht. es ist ein bisschen schwer da durchzusehen, also wie kann ich das machen???

Mit freundlcihen Grüßen

Christian18

PS: Achso das sollte ich vieleicht auch noch erwähnen: DM ist ein Datenmodul...

Delphi-Quellcode:

procedure TFAlbum.DBGrid1DblClick(Sender: TObject);
  var Image : TImage;
      l, i, t : Integer;
begin
  t:=8;
  DM.TFotos.First;
  for i:=1 to DM.TFotos.RecordCount do
    begin
      if
        i=1
      then
        begin
          Image:=TImage.Create(self);
          Image.Width:=150;
          Image.Proportional:=True;
          Image.Top:=8;
          Image.Left:=8;
          Image.Picture.LoadFromFile(DM.TFotosPfad.AsString);
          Image.Parent:=FFotos.ScrollBox1;
          DM.TFotos.Next;
        end
      else
        begin
          Image:=TImage.Create(self);
          Image.Width:=150;
          Image.Proportional:=True;
          Image.Top:=8;
          l:=l+166;
          Image.Left:=l;
          Image.Picture.LoadFromFile(DM.TFotosPfad.AsString);
          Image.Parent:=FFotos.ScrollBox1;
          DM.TFotos.Next;
        end;
      if
        i>3
      then
        begin
          Image:=TImage.Create(self);
          Image.Width:=150;
          Image.Proportional:=True;
          Image.Top:=130;
          Image.Left:=8;
          Image.Picture.LoadFromFile(DM.TFotosPfad.AsString);
          Image.Parent:=FFotos.ScrollBox1;
          DM.TFotos.Next;
          l:=8;
        end
      else
        begin
          Image:=TImage.Create(self);
          Image.Width:=150;
          Image.Proportional:=True;
          Image.Top:=130;
          l:=l+166;
          Image.Left:=l;
          Image.Picture.LoadFromFile(DM.TFotosPfad.AsString);
          Image.Parent:=FFotos.ScrollBox1;
          DM.TFotos.Next;
        end;
  end;