图片放大问题-在线急等

Question

各位大哥
 我想问这样双击image就把image的图片放大

Answer 1

放到多大，有什么用？说明白些，大伙好帮你。图片处理有个例子可以提供给你，不知是否对你有用，需要发消息（带上贴地址和mail）

Answer 2

Image1.Stretch := True;
  Image1.BoundsRect := BoundsRect;
  Image1.Left := 0;
  Image1.Top := 0;

Answer 3

谢谢jpyc这么热心帮我
我是从摄像头那里取来的图片 可能回能小
我想把他放大点使得看的更清楚！！
我的E-mail是 [email protected] 

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
  image1.Stretch:=true;
  image1.Width:=image1.Width*2;
  image1.Height:=image1.Height*2;
end;

Answer 5

mouseclick := mouseclick + 1;
  if (mouseclick mod 2) = 1 then
  begin
      image1.Left := 71;
    image1.Height := image1.Height * 2;
    image1.Width := image1.Width * 2;
  end
  else begin
       image1.Left := 290;
    image1.Width := trunc(image1.Width / 2);
    image1.Height := trunc(image1.Height / 2);
  end;

Answer 6

var i,j,k:integer;(全局變量)
    w:array[1..100] of integer;
    h:array[1..100] of integer;
i:=0;procedure TForm1.Button1Click(Sender: TObject);
begin
  i:=i+1;
  w[i]:=image1.Width;
  h[i]:=image1.Height;
  image1.Stretch:=true;
  image1.Width:=image1.Width*2;
  image1.Height:=image1.Height*2;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  image1.Stretch:=true;
  image1.Width:=w[i];
  image1.Height:=h[i];
  i:=i-1;
end;

Answer 7

你也可以直接用api函数StretchBlt
(代理服务器有问题,不能发长的留言,请原谅) 
--------------------------------------
看！
那支正飞向太阳的蛾子.....
就是我！
--------------------------------------