关于Canvas对象的问题。
xusun 2002-03-31 06:18:51 关于Canvas对象的问题。
此例程是要为form创建一个背景画
procedure TForm1.FormClick(Sender: TObject);
begin
Canvas.Brush.Bitmap := TBitmap.Create;
Canvas.Brush.Bitmap.LoadFromFile('c:\Program Files\Common Files\Borland Shared\Images\Splash\256Color\factory.bmp');
Canvas.FillRect(Rect(0,0,width,height));
//我明白以下两句是什么意思,但我不明白他们为什么要放在这里(而且程序执行还没问题),如果把这个事例释放了,那这个背景画面还显示么,我觉得这两句应该放在TForm1的colse事件里。
Canvas.Brush.Bitmap.Free;
Canvas.Brush.Bitmap := nil;
end;