请问有什么办法让TImage有滚动条?如何让TImage的图像随着TImage控件放大缩小时候按比例放大缩小?我一定给分

Question

关于滚动条 你可以把 image放在一个容器里, image的初始大小和容器一样 当然这个容器是要有滚动条的 stretch属性设定后 你就可以"让TImage的图像随着TImage控件放大缩小时候按比例放大缩小"

Answer 1

将stretch属性设为true,AutoSize设为false;
var
  w, h, x: integer;
begin
  w := Image.Picture.Width;
  h := Image.Picture.Height;
  x := 99;
  with Image do
  begin
    while (w > Width) or (h > Height) do
    begin
      w := trunc(Picture.Width * x / 100);
      h := trunc(Picture.Height * x /100);
      dec(x);
    end;
  end;
  Image.Width := w;
  Image.Height := h;
end;