迷茫

(四)创建抓取图象的单元文件ScrnCptunit ScrnCpt;interfaceuses windows,forms,controls,classes,Graphics;function CaptureScreenRect(ARect:TRect):TBitmap;function CaptureScreen:TBitmap;function CaptureClientImage

(六)TMainForm的 (抓图)Action 事件1)全屏抓图[Capture Desktop]  Action 事件procedure TMainForm.cptDesktopExecute(Sender: TObject);begin  inc(CaptureNum,1);  Application.Minimize ;  //窗体最小化  Delay(500);            

3)抓取窗体或控件图片   抓取窗体或控件图片，即要用到一个新的Form2，参见《Delphi图象截取编程示例(7)》   在Main单元implementation的uses中添加Capture2。   [Capture Windows or Controls]窗体或控件抓图的Action 事件procedure TMainForm.cptWindowsExecute(Sender: TObje

(六)区域抓图窗体创建一个新的Form1，保存为Capture1.pas。设置属性BorderIcons的四个属性为false.BorderStyle设为bsNone,Cursor设为crCross,FormStyle设为fsStayOnTop.添加一个私有变量：fDragging:Boolean;两个公共变量:fRect:TRect,fBmp:TBitmap;Form1的作用：在区域抓图时创建，

(七)抓取图标（ICON）的窗体创建一个新的Form3，保存为Capture3.pas。设置属性BorderIcons的四个属性为false.BorderStyle设为bsNone,FormStyle设为fsStayOnTop.一个私有变量：fDragging:Boolean; 两个公共变量:fRect:TRect,fBmp:TBitmap;unit Capture3;interface

(五)TMainForm的事件和函数 和 TPrinter打印应用////////// 打印知识[菜单项file/打印] 事件：procedure TMainForm.filePrintItemClick(Sender: TObject);begin  {kh1}print;{kh2}  Screen.Cursor := crHourglass;  try    if MDIChildCount 

注意，本例在 Delphi7.0下调试通过///////////////////////////////////////////////////////////(一)建立项目  new Items-->Projects-->MDI Application  (二)重新设计MDI子窗体--ChildWin,实现抓取的图象在ChildWin中显示。    在ChildWin子窗体中去掉原有的Mem

(七)抓取窗体或控件图片窗体创建一个新的Form2，保存为Capture2.pas。设置属性BorderIcons的四个属性为false.BorderStyle设为bsNone,FormStyle设为fsStayOnTop.两个公共变量:fRect:TRect,fBmp:TBitmap;unit Capture2;interfaceuses  Windows, Messages, Sy