delphi我看不出代码错误，请高手帮忙

没有找到lz采用方法的具体错误原因,不过貌似都说Tcanvas不推荐直接这么用,会引起没有not allocated而导致抛的这种错误,可以用下面方法来实现.

procedure TForm1.Button2Click(Sender: TObject)

var

my1:tbitmap

scrn,cvs:TCanvas

i,j,x,y: integer

kkp:TPoint

DC:HDC

begin

my1:=TBitmap.Create

scrn:=TCanvas.Create

//DC:=GetDesktopWindow

scrn.Handle:=GetDC(0)

cvs:=TCanvas.Create

GetCursorPos(kkp)

x:=kkp.X

y:=kkp.Y

my1.Canvas.CopyRect(Rect(0,0,280,280),scrn,Rect(x-140,y-140,x+140,y+140))

for i := 0 to 279 do

for j := 0 to 279 do

if my1.Canvas.Pixels[i,j]=TColor(RGB(152,248,88)) then showmessage('hello!')

my1.Destroy

end

1、自我介绍：

自我介绍作为答辩的开场白，包括姓名、学号、专业。介绍时要举止大方、态度从容、面带微笑，礼貌得体的介绍自己。克服紧张、不安、焦躁的情绪，自信自己一定可以顺利通过答辩。

2、答辩人陈述

自述的主要内容包括论文标题；课题背景、选择此课题的原因及课题现阶段的发展情况；有关课题的具体内容，其中包括答辩人所持的观点看法、研究过程、实验数据、结果；答辩人在此课题中的研究模块、承担的具体工作、解决方案、研究结果。

3、提问与答辩

答辩教师的提问安排在答辩人自述之后，一般为3个问题，采用由浅入深的顺序提问，采取答辩人当场作答的方式。

4、总结

答辩人最后纵观答辩全过程，做总结陈述，包括两方面的总结：毕业设计和论文写作的体会；参加答辩的收获。答辩教师也会对答辩人的表现做出点评：成绩、不足、建议。

除去以上流程外，答辩还需要注意以下几点：

一、提前准备讲稿；

二、若学校要求准备演讲PPT，则需提前准备并演练，若学校不作要求，可不准备；

三、最好穿正装，以示对老师的尊重。

扩展资料

毕业答辩中常见的问题：

1、自己为什么选择这个课题？

2、研究这个课题的意义和目的是什么？

3、全文的基本框架、基本结构是如何安排的？

4、全文的各部分之间逻辑关系如何？

5、在研究本课题的过程中，发现了哪些不同见解？对这些不同的意见，自己是怎样逐步认识的？又是如何处理的？

6、论文虽未论及，但与其较密切相关的问题还有哪些？

7、还有哪些问题自己还没有搞清楚，在论文中论述得不够透彻？

8、写作论文时立论的主要依据是什么？

参考资料：百度百科-毕业论文答辩

先在土豆网注册。在土豆网首页中有个新推出的“我的土豆软件”，打开它，会看见土豆小软件中的“飞速土豆”和“iTudou”两个软件，下载“ iTudou”软件，一般会出现“启动iTudou”和“进入土豆网”两个程序。另外，“飞速土豆”是为了节省网络资源，更快更好的观看视屏而推出的一个软件。

开启“启动iTudou”程序，你会看见“我的主页”、“我的节目库”与及“上传节目”三个项目。如果你想把土豆网上其他用户的视屏下载到自己电脑里，在其视屏网页点击“下载视屏”，该视屏就会出现在节目库里，再把它另存就可以了。如果你把自己电脑里的视屏上传进土豆网，在上传节目中按照步骤就可以了。

把视屏上传至视屏网之后再将自己电脑里的删除，视屏网里的视屏是不会消失的。

---