菜问题：image的大小为什么不能随意改变？

Question

我实时设置image的大小，可它只在一定范围内变化，而且有时变不回原来大小，只在小于（差很多）原始大小范围内变化，为什么？谢。

Answer 1

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Image1.Stretch := true;
  Image1.Height:= Image1.Height + 20;
  Image1.Width := Image1.Width + 20;end;procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  Image1.Stretch := true;
  Image1.Height:= Image1.Height - 20;
  Image1.Width := Image1.Width - 20;end;

Answer 2

mousedown中:
image1.width:=x-image1.left;不行.不跟鼠标走.

Answer 3

在MouseMove中加处理不就可以让它跟着鼠标走了

Answer 4

谢谢。比较糊。Image1.Stretch := true;