一个非常奇怪的问题,要改变Image.left,delphi7却不理会?(50分)

  • 主题发起人 主题发起人 yhli
  • 开始时间 开始时间
Y

yhli

Unregistered / Unconfirmed
GUEST, unregistred user!
要改变Image.left,delphi7却不理会?难道是delphi7本身有问题???
procedure TfMain.mWindow_ZoomClick(Sender: TObject);
begin
if ZoomRatio>0 then
begin
ZoomImage1;
Image1.Left:=0; //不起作用?????
Image1.Top :=0;;//不起作用?????,好奇怪,然而将这两句放在一个单独的按钮命令下(BitBtn1Click)却可以????
end;
end;

procedure TfMain.BitBtn1Click(Sender: TObject);
begin
Image1.Left:=0;
Image1.Top :=0;
end;

procedure TfMain.ZoomImage1;
begin
Image1.Left:=0;
Image1.Top :=0;
Image1.AutoSize:=False;
Image1.Width:=Round(img1w*ZoomRatio);
Image1.Height:=Round(img1h*ZoomRatio);
Image1.Stretch:=True;
end;
 
原来与scrollbox有关,我是把image1放在scrollbox中,改为
ScrollBox1.HorzScrollBar.Position:=0;
ScrollBox1.VertScrollBar.Position:=0;
Image1.Left:=0;
Image1.Top :=0;
则问题解决了。
 
恭喜..下次不要粗心大意吧..
 
后退
顶部