关于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;
...全文
52 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
stlont 2002-04-01
  • 打赏
  • 举报
回复
当画到canvas上后,bitmap就没用了
释放掉免的占内存

5,939

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧