关于Canvas:=TCanvas.Create();的错误~

militant 2003-12-15 08:34:17

我想用Canvas画图，可是当我Canvas:=TCanvas.Create();创建Canvas对象的时候，出现错误如下：Cannot assign to a read-only property.
我其他对象创建都没有出现这种错误，奇怪。

...全文

174 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

mingjianzeng2003 2003-12-15

打赏
举报

Canvas:=Tcanvas.Create;没有问题啊，怎么会报错吗？我试了怎么不会呢？

lxhong1980 2003-12-15

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
var
Canvas:TCanvas;
begin
Canvas:=TCanvas.Create();
Canvas.Brush.Color:=clWhite;
end;

没有错误啊

Sumie@Sam 2003-12-15

打赏
举报

在窗体中使用属性，如果没有指定对象，则默认作为当前窗体的属性，你把定义的变量名换一个吧。

shgye121212 2003-12-15

打赏
举报

不是吧！！？？

militant 2003-12-15

打赏
举报

不是了吧？
刚开始我定义Canvas：TCanvas啊
Canvas我还没有定义的对象啊，怎么可以直接用呢？
直接用我也用过了， Canvas.Brush.Color:=clWhite;这里就出错了
产生EAccessViolation错误。

gencan 2003-12-15

打赏
举报

你要用Canvas用就是了，为什么给它赋值呢？

asj 2003-12-15

打赏
举报

呵呵，你要用Canvas用就是了，为什么给它赋值呢？
人家不是告诉你了Canvas是一个Read-only的属性，给它赋值当然要出错了
在窗口中写Canvas就等于Form1.Canvas，而这个对象是在窗口创建时就已经创建的，由窗口来管理。当然不能让你随便就给它从新分配内存了。直接使用它就行了

tonylk 2003-12-15

打赏
举报

Canvas:=TCanvas.Create();
左边这个canvas是你自己声明的变量，还是什么控件里自带的属性，后者的话当然不可以进行赋值，而且也不需要赋值，直接用就可以了。。

shgye121212 2003-12-15

打赏
举报

关注：

militant 2003-12-15

打赏
举报

我觉得可能是因为Canvas创建的问题了。
我是在FormShow事件中创建Canvas是就产生上述错误了。

//创建一个BITMAP来存放图象 Fullscreen.Width:=screen.width; Fullscreen.Height:=screen.Height; DC:=GetDC(0); //取得屏幕的DC，参数0指的是屏幕 FullscreenCanvas:=TCanvas.Create; //创建一个CANVAS对象 FullscreenCanvas.Handle:=DC; Fullscreen.Canvas.CopyRect(Rect(0,0,screen.Width,screen.Height), fullscreenCanvas,Rect(0,0,Screen.Width,Screen.Height)); //把整个屏幕复制到BITMAP中 FullscreenCanvas.Free;

Delphi 全屏抓图范例源码，除了全屏截图外还演示了区域抓图的实现，最后将抓图保存了图片，可把本源码作为Delphi图像工具软件的一个模块来借鉴。　　Fullscreen:=TBitmap.Create;//创建一个BITMAP来存放图象　　Fullscreen.Width:=screen.width; 　　Fullscreen.Height:=screen.Height; 　　DC:=GetDC(0);//取得屏幕的DC，参数0指的是屏幕　　FullscreenCanvas:=TCanvas.Create;//创建一个CANVAS对象　　FullscreenCanvas.Handle:=DC; 　　Fullscreen.Canvas.CopyRect 　　(Rect(0,0,screen.Width,screen.Height),fullscreenCanvas, 　　Rect(0,0,Screen.Width,Screen.Height)); 　　// 把整个屏幕复制到BITMAP中　　FullscreenCanvas.Free;//释放CANVAS对象　　ReleaseDC(0,DC);//释放DC 　　image1.picture.Bitmap:=fullscreen;//拷贝下的图象赋给IMAGE对象　　image1.Width:=fullscreen.Width; 　　image1.Height:=fullscreen.Height; 　　fullscreen.free;//释放bitmap 　　form1.show;//显示窗口　　messagebeep(1);//BEEP叫一声，报告图象已经截取好了。

Borland 公司的天才设计师们用画布（Tcanvas）对象封装了Windows 的大部分图形输出功能，这使得我们可以通过他以更直观的方式和Windows 的屏幕打交道，而不必关心令人头疼的Windows API 函数。下面的一小段程序就可以实现整个屏幕的图象拷贝了。 var //变量声明 Fullscreen:Tbitmap; FullscreenCanvas:TCanvas; dc:HDC; //------------------------------------------------------------ DC := GetDC (0); //取得屏幕的 DC，参数0指的是屏幕 FullscreenCanvas := TCanvas.Create; //创建一个CANVAS对象 FullscreenCanvas.Handle := DC; //将屏幕的DC赋给HANDLE Fullscreen.Canvas.CopyRect (Rect (0, 0, screen.Width,screen.Height), fullscreenCanvas, Rect (0, 0, Screen.Width, Screen.Height)); //把整个屏幕复制到BITMAP中 FullscreenCanvas.Free; //释放CANVAS对象 ReleaseDC (0, DC); //释放DC //SCREEN对象是DELPHI预先定义的屏幕对象，直接使用就行了。 ---- 看了以上代码，你就会发现用DELPHI 写屏幕拷贝程序的确很简单。 ---- 当然要写一个实用的屏幕拷贝程序，光靠上述代码是不够的，下面讲一下主要的编程思路： ---- 1. 全屏幕拷贝的实现 ---- 首先隐藏拷屏程序，延长一定时间后，利用上述的程序即可实现屏幕的拷贝。 ---- 2. 区域拷贝的实现 ---- 要实现区域拷贝要用个小技巧，首先调用全屏幕拷贝程序把整个屏幕拷贝下来，然后把拷贝下来的图象显示在屏幕上，之后就可以让用户在上面选择需要的区域，最后才将用户选定的区域复制下来。 ---- 编程实现： ---- 1. 首先用DELPHI3 开一个工程。 ---- 2. 在FORM 上放置一个TPANEL 元件，设置ALIGN=ALTOP，再选部件条ADDITIONAL 上的TSCROLLBOX，放到FORM 上，设置ALIGN=ALCLIENT，然后在SCROLLBOX 上放置一个 TIMAGE 对象。 ---- 3. 在PANEL 上放置4 个按钮，分别为FULL SCREEN，REGIN，SAVE，EXIT。 ---- 4. 容易干的先干，在EXIT 按钮的CLICK 事件里写下代码 procedure TForm1.ExitClick(Sender: TObject); begin close; end; ---- 5. 接着是实现全屏幕拷贝了，在FROM 上放置一个记时器TTIMER，ENABLED 设为 FALSE，INTERVAL 设为500，也就是半秒钟激活一次。双击TIMER 部件，写上如下的代码。 procedure TForm1.Timer1Timer(Sender: TObject); var Fullscreen:Tbitmap; FullscreenCanvas:TCanvas; dc:HDC; begin timer1.Enabled:=false; //取消时钟 Fullscreen := TBitmap.Create; //创建一个BITMAP来存放图象 Fullscreen.Width := screen.width; Fullscreen.Height := screen.Height; DC := GetDC (0); //取得屏幕的 DC，参数0指的是屏幕 FullscreenCanvas := TCanvas.Create; //创建一个CANVAS对象 FullscreenCanvas.Handle := DC; Fullscreen.Canvas.CopyRect (Rect (0, 0, screen.Width, screen.Height), fullscreenCanvas, Rect (0, 0, Screen.Width, Screen.Height)); //把整个屏幕复制到BITMAP中 FullscreenCanvas.Free; //释放CANVAS对象 ReleaseDC (0, DC); //释放DC //******************************* image1.picture.Bitmap:=fullscreen;//拷贝下的图象赋给IMAGE对象 image1.Width:=fullscreen.Width; image1.Height:=fullscreen.Height; fullscreen.free; //释放bitmap form1.WindowState:=wsNormal; //复原窗口状态 form1.show; //显示窗口 messagebeep(1); //BEEP叫一声，报告图象已经截取好了。 end; ---- 6. 接下去FULLSCREEN 按钮上的代码就很简单了。 procedure TForm1.FullscreenClick(Sender: TObject); begin form1.WindowState:=wsMinimized; //最小化程序窗口 form1.hide; //把程序藏起来 timer1.enabled:=true; //打开记时器 end; ---- 7. 拷贝到了图象当然要存起来了，SAVE 按钮就有了用武之地，我们写下如下代码。 procedure TForm1.Save1Click(Sender: TObject); begin if savedialog1.Execute then begin form1.Image1.Picture.SaveToFile(savedialog1.filename) end; end; ---- 8. 下面是区域拷贝的实现。再New 一个FORM,BorderStype 设为 bsNone, 这样能够显示为全屏幕，上面放置一个TIMAGE 部件，ALIGN 设为ALCLIENT，另外放置一个TTIMER 部件，TIMER 部件的程序跟上面的很象，因为它首先要实现的是全屏幕的拷贝。 procedure TForm2.Timer1Timer(Sender: TObject); var Fullscreen:Tbitmap; FullscreenCanvas:TCanvas; dc:HDC; begin timer1.Enabled:=false; Fullscreen := TBitmap.Create; Fullscreen.Width := screen.width; Fullscreen.Height := screen.Height; DC := GetDC (0); FullscreenCanvas := TCanvas.Create; FullscreenCanvas.Handle := DC; Fullscreen.Canvas.CopyRect (Rect (0, 0, screen.Width, screen.Height), fullscreenCanvas, Rect (0, 0, Screen.Width, Screen.Height)); FullscreenCanvas.Free; ReleaseDC (0, DC); image1.picture.Bitmap:=fullscreen; image1.Width:=fullscreen.Width; image1.Height:=fullscreen.Height; fullscreen.free; form2.WindowState:=wsMaximized; form2.show; messagebeep(1); foldx:=-1; foldy:=-1; image1.Canvas.Pen.mode:=pmnot; //笔的模式为取反 image1.canvas.pen.color:=clblack; //笔为黑色 image1.canvas.brush.Style:=bsclear; //空白刷子 flag:=true; end; ---- 9.TIMAGE 部件上有两个事件的程序需要编写，一个是ONMOUSEDOWN，另一个是ONMOUSEMOVE。 ---- 10. 可以回头看看区域拷贝的思路，此时需要作区域拷贝的屏幕我们已经得到，也显示在屏幕上了，按下鼠标左键是区域的原点，此后移动鼠标，将有一个矩形在原点和鼠标之间，它会随着鼠标的移动而变化，再次按下鼠标的左键，此时矩形所包含的区域就是我们要得到的图象了。 ---- 11. 所以MOUSEDOWN 有两次响应的处理，见以下程序。 procedure TForm2.Image1MouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var width,height:integer; newbitmap:Tbitmap; begin if (trace=false) then // TRACE表示是否在追踪鼠标 begin //首次点击鼠标左键，开始追踪鼠标。 flag:=false; with image1.canvas do begin moveTo(foldx,0); LineTo(foldx,screen.height); moveto(0,foldy); lineto(screen.width,foldy); end; x1:=x; y1:=y; oldx:=x; oldy:=y; trace:=true; image1.Canvas.Pen.mode:=pmnot; //笔的模式为取反 //这样再在原处画一遍矩形，相当于擦除矩形。 image1.canvas.pen.color:=clblack; //笔为黑色 image1.canvas.brush.Style:=bsclear;//空白刷子 end else begin //第二次点击，表示已经得到矩形了， //把它拷贝到FORM1中的IMAGE部件上。 x2:=x; y2:=y; trace:=false; image1.canvas.rectangle(x1,y1,oldx,oldy); width:=abs(x2-x1); height:=abs(y2-y1); form1.image1.Width:=Width; form1.image1.Height:=Height; newbitmap:=Tbitmap.create; newbitmap.width:=width; newbitmap.height:=height; newbitmap.Canvas.CopyRect (Rect (0, 0, width, Height),form2.image1.canvas, Rect (x1, y1,x2,y2)); //拷贝 form1.image1.picture.bitmap:=newbitmap; //放到FORM的IMAGE上 newbitmap.free; form2.hide; form1.show; end; end; ---- 12.MOUSEMOVE 的处理就是在原点和鼠标当前位置之间不断地画矩形和擦除矩形。 procedure TForm2.Image1MouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if trace=true then //是否在追踪鼠标？ begin //是，擦除旧的矩形并画上新的矩形 with image1.canvas do begin rectangle(x1,y1,oldx,oldy); Rectangle(x1,y1,x,y); oldx:=x; oldy:=y; end; end else if flag=true then //在鼠标所在的位置上画十字 begin with image1.canvas do begin moveTo(foldx,0); //擦除旧的十字 LineTo(foldx,screen.height); moveto(0,foldy); lineto(screen.width,foldy); moveTo(x,0); //画上新的十字 LineTo(x,screen.height); moveto(0,y); lineto(screen.width,y); foldx:=x; foldy:=y; end; end; end; ---- 13. 好了，让我们回过头来编写REGION 按钮的代码。 procedure TForm1.RegionClick(Sender: TObject); begin form1.Hide; form2.hide; form2.Timer1.Enabled:=true; end; ---- 好了，我们终于胜利完工了，赶快运行一遍，把漂亮的屏幕拷下来！瞧 DELPHI 不仅是一个优秀的数据库开发工具，而且是一个优秀的编写WINDOWS 程序的好帮手。让我们不禁赞叹：伟大的DELPHI ！

Delphi 实现图片与Base64编码相互转化和给图片添加水印图片和水印文字Demo

图像反色处理，Delphi多形式示例..rar

Delphi

5,930

社区成员

262,936

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章