文件名称:截图控件 包含全部源码
- 所属分类：
- 图片显示浏览
- 资源属性：
- [Dephi] [Pascal] [源码]
- 上传时间：
- 2009-03-22
- 文件大小：
- 587.93kb
- 下载次数：
- 1次
- 提 供 者：
- hwbcs@163.com
- 相关连接：
- 无
- 下载说明：
- 别用迅雷下载，失败请重下，重下不扣分！
介绍说明－－下载内容均来自于网络，请自行研究使用
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