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

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

摘要：(四)创建抓取图象的单元文件ScrnCpt unit ScrnCpt; interface uses windows,forms,controls,classes,Graphics; function CaptureScreenRect(ARect:TRect):TBitmap; function CaptureScreen:TBitmap; function CaptureClientIm... 阅读全文

摘要：(六)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: ... 阅读全文

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

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

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