文档章节

把整个窗体保存为图片的方法 - 回复 "乌龙哈里" 的问题

涂孟超
 涂孟超
发布于 2014/09/26 15:38
字数 101
阅读 1
收藏 0
问题来源: http://www.cnblogs.com/del/archive/2008/06/27/1197961.html#1237665

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  bit: TBitmap;
begin
  bit := TBitmap.Create;
  bit.Width := Width;
  bit.Height := Height;
  BitBlt(bit.Canvas.Handle, 0, 0, Width, Height, GetWindowDC(Handle), 0, 0, SRCCOPY);
  bit.SaveToFile('c:\temp\Form1.bmp');
  bit.Free;
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/06/27/1230941.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Access未公开的两个方法:SaveAsText和LoadFromText

很早以前写的文章,突然找不到了,写在自己的博客里以作留存。 应黄海之邀,突然要写点自己的东西,一下子仿佛不知道写些什么了,研究access这么多年,感觉都是在做企业应用,并没有什么高深...

tmtony8
2014/05/13
0
0
使用免费组件view pdf 文档

“Is there any way to view PDF files in a Winforms tool?” 这个是我在技术论坛上发现的一个老外求助的帖子,然后看到别人回复的帖子中建议了一个免费的Spire.PDFViewer组件,一看是免费的...

eiceblue
2015/04/20
0
0
C#关于制作截图工具(一)<简单截图>

因为网上看的那些都是做的一整个截图工具上面包含了很多功能 比如可以话箭头 画一个矩形什么的 并且那个时候也才借出GDI的一点东西 所以看着代码特别头痛 其实在看的过程中 我正在关心的不是...

长平狐
2012/12/10
2.3K
0
MySQL 手册许可证更改只是一个 Bug 而已

OSChina 今天上午发布的新闻 MySQL 手册已经悄悄移除 GPL 许可证。但有人给 MySQL 提交了 Bug #69512。该 bug 指出了 MySQL 从 5.5.31 版本开始许可证被改了的问题,该 bug 存在于最新的 5....

oschina
2013/06/19
5.7K
41
在Windows7系统上能正常使用的程序,Windows10运行后部分状态不能及时变更

这是最近在开发一个通信项目时遇到的问题,一开始以为是窗体样式的原因,把窗体换成系统窗体之后还是在Win10上不能正常使用,后面突然想到会不会是匹配原因,试了一下,结果真的就正常了。 ...

相约荞麦
10/25
0
0

没有更多内容

加载失败,请刷新页面

加载更多

RestClientUtil和ConfigRestClientUtil区别说明

RestClientUtil directly executes the DSL defined in the code. ConfigRestClientUtil gets the DSL defined in the configuration file by the DSL name and executes it. RestClientUtil......

bboss
今天
11
0

中国龙-扬科
昨天
2
0
Linux系统设置全局的默认网络代理

更改全局配置文件/etc/profile all_proxy="all_proxy=socks://rahowviahva.ml:80/"ftp_proxy="ftp_proxy=http://rahowviahva.ml:80/"http_proxy="http_proxy=http://rahowviahva.ml:80/"......

临江仙卜算子
昨天
9
0
java框架学习日志-6(bean作用域和自动装配)

本章补充bean的作用域和自动装配 bean作用域 之前提到可以用scope来设置单例模式 <bean id="type" class="cn.dota2.tpye.Type" scope="singleton"></bean> 除此之外还有几种用法 singleton:......

白话
昨天
8
0
在PC上测试移动端网站和模拟手机浏览器的5大方法

总结很全面,保存下来以备不时之需。原文地址:https://www.cnblogs.com/coolfeng/p/4708942.html

kitty1116
昨天
7
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部