创建一个新的Form3,保存为Capture3.pas。设置属性BorderIcons的四个属性为false.
BorderStyle设为bsNone,FormStyle设为fsStayOnTop.
一个私有变量:fDragging:Boolean; 两个公共变量:fRect:TRect,fBmp:TBitmap;
unit Capture3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm3 = class(TForm)
proced...[ 查看全文 ]