创建一个新的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...[ 查看全文 ]