while not Query.Eof do begin       with TImage.Create(Self) do begin // Owner is Form1
     parent := Self; // Parent is Form1
     Picture.LoadFromFile(Query.FieldByname('FullFileName').asstring);
     Left := ???; // position
     Top := ???;
   end;      Query.Next;    end;

引言: 比如我的数据记录现在有50条，我现在把这50条记录相对应的图片取出来 每屏显示16个，好象windows中那缩略图那样,请问怎么做？

1. TImage 不一定要 Create 再 Form 上, TScrollBox 也很恰當, 只是提供 run time create TImage 的方法參考. 2. TImage 的位置必須計算啦, 我不知道你每個 Image 寬度多少, 間隔要多少, 需不需要加 create label 在圖下方等等, 實在沒有辦法將 Source Code 幫忙寫妥喔.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.First;
  while not Query1.Eof do begin
    with TImage.Create(ScrollBox1) do
      Picture.LoadFromFile(Query1.FieldByname('FullFileName').asstring);
    Query1.Next;
  end;
  ReArrangeImages;
end;    procedure TForm1.ScrollBox1Resize(Sender: TObject);
begin
  ReArrangeImages;
end;    procedure TForm1.ReArrangeImages;
var i, ImageW, ImageH, OffSet, CurrentX, CurrentY : integer;
begin
  ImageW := 60;
  ImageH := 80;
  OffSet := 10;
  CurrentX := 0;
  CurrentY := 0;
  for i := 0 to ScrollBox1.ComponentCount - 1 do begin
    if ScrollBox1.Components[i] is TImage then
      with TImage(ScrollBox1.Components[i]) do begin
        Parent := ScrollBox1;
        Width := ImageW;
        Height := ImageH;
        Left := CurrentX + OffSet;
        Top := CurrentY + OffSet;
        if ScrollBox1.Width<(CurrentX + 2 * OffSet + ImageW ) then begin
          CurrentX := 0;
          CurrentY := CurrentY + 2 * OffSet + ImageH;
        end
        else CurrentX := CurrentX + 2 * OffSet + ImageW;
     end;
  end;
end;