(七)抓取图标(icon)的窗体
创建一个新的form3,保存为capture3.pas.设置属性bordericons的四个属性为false. 【程序编程相关:Asp.net连Access时:操作必须】 【推荐阅读:开始学习工作流方面的知识】borderstyle设为bsnone,formstyle设为fsstayontop. 【扩展信息:在Form域中Post大于100K的数据】 一个私有变量:fdragging:boolean; 两个公共变量:frect:trect,fbmp:tbitmap;unit capture3;
interface
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs;type
tform3 = class(tform) procedure formcreate(sender: tobject); procedure formmousedown(sender: tobject; button: tmousebutton; shift: tshiftstate; x, y: integer); procedure formmousemove(sender: tobject; shift: tshiftstate; x, y: integer); procedure formmouseup(sender: tobject; button: tmousebutton; shift: tshiftstate; x, y: integer); procedure formactivate(sender: tobject); procedure formdestroy(sender: tobject); procedure formpaint(sender: tobject); private ... 下一页