使用canvas得在接口的uses中加什么类还是程序出错?

Question

窗体上加image组件,设置它的picture为我想铺的bmp图片, visible设为false.
FORMCREATE,和formpaint中把你的图片加到窗体上：form1.brush.canvas.bitmap:=image1.brush.bitmap;
可是编译都不能通过.

Answer 1

brush是背景
Canvas才是画布Form1.Canvas.StretchDraw (Form1.Canvas.ClipRect,Image1.Picture.Graphic   );

Answer 2

SonicX(SonicX),看起来有效果.可是就忽闪一下就没啦?
哈哈,这是怎么了.

Answer 3

procedure TForm1.FormPaint(Sender: TObject);
var
  Rect: TRect;
begin
  Image1.Picture.LoadFromFile('2.bmp');
  Rect.Left := Self.Left;
  Rect.Top  := Self.Top;
  Rect.Right := Self.Width;
  Rect.Bottom := Self.Height;
  self.Canvas.Brush.Bitmap := Image1.Picture.Bitmap;
  self.Canvas.Rectangle(Rect);
end;
类似这样的程序吧!你试试吧!不行你可以看看《Delphi5开发人员指南》那上面有讲！

Answer 4

楼上已经说了，放在onPaint事件里
procedure TForm1.FormPaint(Sender: TObject);
begin
Form1.Canvas.StretchDraw (Form1.Canvas.ClipRect,Image1.Picture.Graphic   );end;

Answer 5

我重新建立了一个程序测试,把它放了FormActivate事件里,FormPaint忘了放.才一忽闪就没了.
多谢指点.