(五)TMainForm的事件和函数 和 TPrinter打印应用 ////////// 打印知识 [菜单项file打印] 事件: procedure TMainForm.filePrintItemClick(Sender: TObject); begin {kh1}print;{kh2} Screen.Cursor := crHourglass; try if MDIChildCount0 then with ActiveMDIChild as TMDIC...[ 查看全文 ]
(四)创建抓取图象的单元文件ScrnCpt unit ScrnCpt; interface uses windows,forms,controls,classes,Graphics; function CaptureScreenRect(ARect:TRect):TBitmap; function CaptureScreen:TBitmap; function CaptureClientImage(Control:TControl):TBitmap; function CaptureControlImage(Control:TControl):TBitmap; function CaptureWindowImage(Wn...[ 查看全文 ]
抓取窗体或控件图片,即要用到一个新的Form2,参见《Delphi图象截取编程示例(7)》 在Main单元implementation的uses中添加Capture2。 [Capture Windows or Controls]窗体或控件抓图的Action 事件 procedure TMainForm.cptWindowsExecute(Sender: TObject); var p:TPoint; Handles:HWnd; begin Inc(CaptureNum,...[ 查看全文 ]