文件名称:截图控件 包含全部源码
-
所属分类：
- 标签属性：
- 上传时间：2009-03-22
-
文件大小：587.93kb
-
已下载：1次
-
提 供 者：
-
相关连接：无下载说明：别用迅雷下载，失败请重下，重下不扣分！
介绍说明－－下载内容来自于网络，使用问题请自行百度
procedure TForm1.BtnStartClick(Sender：TObject)；
begin
ScreenCapture1.start； //开始截图
end；
//当截取屏幕成功时，此事件发生
procedure TForm1.ScreenCapture1Capture(Sender：TObject；Bitmap：TBitmap)；
begin
//调整滚动窗口的大小以适应截获图像的大小
Scrollbox1.HorzScrollBar.Range：= Image1.width；
Scrollbox1.VertScrollBar.Range：= Image1.height；
end；
procedure TForm1.FormCreate(Sender：TObject)；
begin
//载入entntacp.dll文件
BtnStart.enabled：= ScreenCapture1.dllavailable；
//显示版本信息
caption：= '屏幕抓图软件' + ScreenCapture1.version；
end；
//当没有足够的内存支持截取屏幕时，此事件发生
procedure TForm1.ScreenCapture1Error(Sender：TObject)；
begin
MessageDlg('屏幕截取时发生一个错误！请关闭其他应用程序以获得更多内存资源.'， mtError，[mbOK]，0)；
end；
//当用户按“Esc”键，即取消屏幕截取时，此事件发生
procedure TForm1.ScreenCapture1UserCancelled(Sender：TObject)；
begin
MessageDlg('用户取消屏幕截取。'，mtInformation，[mbOK]，0)；
end；
begin
ScreenCapture1.start； //开始截图
end；
//当截取屏幕成功时，此事件发生
procedure TForm1.ScreenCapture1Capture(Sender：TObject；Bitmap：TBitmap)；
begin
//调整滚动窗口的大小以适应截获图像的大小
Scrollbox1.HorzScrollBar.Range：= Image1.width；
Scrollbox1.VertScrollBar.Range：= Image1.height；
end；
procedure TForm1.FormCreate(Sender：TObject)；
begin
//载入entntacp.dll文件
BtnStart.enabled：= ScreenCapture1.dllavailable；
//显示版本信息
caption：= '屏幕抓图软件' + ScreenCapture1.version；
end；
//当没有足够的内存支持截取屏幕时，此事件发生
procedure TForm1.ScreenCapture1Error(Sender：TObject)；
begin
MessageDlg('屏幕截取时发生一个错误！请关闭其他应用程序以获得更多内存资源.'， mtError，[mbOK]，0)；
end；
//当用户按“Esc”键，即取消屏幕截取时，此事件发生
procedure TForm1.ScreenCapture1UserCancelled(Sender：TObject)；
begin
MessageDlg('用户取消屏幕截取。'，mtInformation，[mbOK]，0)；
end；
(系统自动生成,下载前可以参看下载内容)
下载文件列表
压缩包 : activex.rar 列表 activex\1.html activex\ActiveFormImpl1.dcu activex\ActiveFormImpl1.dfm activex\ActiveFormImpl1.pas activex\ActiveFormImpl1.~dfm activex\ActiveFormImpl1.~pas activex\ActiveFormProj1.cfg activex\ActiveFormProj1.dof activex\ActiveFormProj1.dpr activex\ActiveFormProj1.htm activex\ActiveFormProj1.ocx activex\ActiveFormProj1.res activex\ActiveFormProj1.tlb activex\ActiveFormProj1.~dpr activex\ActiveFormProj1.~tlb activex\ActiveFormProj1_TLB.dcu activex\ActiveFormProj1_TLB.pas activex\ActiveFormProj1_TLB.~pas activex\CameraDll.dcu activex\CameraDll.dll activex\CameraDll.pas activex\CameraDll.~pas activex\IWISAPIProject.cfg activex\IWISAPIProject.dll activex\IWISAPIProject.dof activex\IWISAPIProject.dpr activex\IWISAPIProject.res activex\IWISAPIProject.~dpr activex\IWUnit1.dcu activex\IWUnit1.dfm activex\IWUnit1.pas activex\sendpic.html activex\ServerController.dcu activex\ServerController.dfm activex\ServerController.pas activex
本网站为编程资源及源代码搜集、介绍的搜索网站，版权归原作者所有！ 粤ICP备11031372号
1999-2046 搜珍网 All Rights Reserved.