帮我看看代码，当我缩小或者放大图象以后，为什么总是闪烁，怎么能消除闪烁??????（icehill)

Question

这个问题我也遇到过，把Form的DoubleBuffered属性设置为true即可

Answer 1

你把Image的Proportional属性设为True;
也可以把image.DoubleBuffered;属性设为Ｔrue;是一个不显示的属性，直接在程序里头用

Answer 2

你可以把image放到一个Panel上，然后设panel.DoubleBuffered:=True;即可

Answer 3

我是把image放在ScrollBox里面的,我把ScrollBox的DoubleBuffered属性设置成了true
是不闪烁了，可是我拖动图象的时候象拉粘皮糖

Answer 4

首先在image底补垫一层panel即把image 放进 panel 里；
再在image上铺一层label;label.align设为alclient;
通过label的mousedown 或mouseup 响应image的mousedown mouseup
你试试看，

Answer 5

procedure TForm_3011.BitBtn2Click(Sender: TObject);//放大图象
begin
  SendMessage(Image1.Handle,WM_SETREDRAW,0,0);
  Image1.AutoSize:=false;
  Image1.Stretch:=true;
  Image1.Height:=trunc(Image1.Height*3/2);
  Image1.Width:=trunc(Image1.Width*3/2);
  SendMessage(Image1.Handle,WM_SETREDRAW,-1,0);
end;

Answer 6

procedure TForm_3011.BitBtn2Click(Sender: TObject);//放大图象
begin
  SendMessage(Image1.Handle,WM_SETREDRAW,0,0);
  Image1.AutoSize:=false;
  Image1.Stretch:=true;
  Image1.Height:=trunc(Image1.Height*3/2);
  Image1.Width:=trunc(Image1.Width*3/2);
  SendMessage(Image1.Handle,WM_SETREDRAW,-1,0);
end;

Answer 7

我開始和你一樣﹐這是因為ScrollBox造成的﹐把它換成panel就行了﹐沒有滾動條﹐可以直接用鼠標拖動圖像﹐就象ADSEE一樣。 

Answer 8

你的图是jpg还是bmp位图，
如果是jpg可能要
image.picture.bitmap.assign(JpgImage);