(七)抓取窗体或控件图片窗体
创建一个新的form2,保存为capture2.pas.设置属性bordericons的四个属性为false. 【程序编程相关:把控件加到toolbar上】 【推荐阅读:ASP 验证码的程序及原理】borderstyle设为bsnone,formstyle设为fsstayontop. 【扩展信息:如何获取MSSQLServer,Orac】 两个公共变量:frect:trect,fbmp:tbitmap;unit capture2;
interface
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs;type
tform2 = class(tform) procedure formcreate(sender: tobject); procedure formactivate(sender: tobject); procedure formdestroy(sender: tobject); procedure formpaint(sender: tobject); procedure formmouseup(sender: tobject; button: tmousebutton; shift: tshiftstate; x, y: integer); ... 下一页