文档章节

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

涂孟超
 涂孟超
发布于 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
MySQL 手册许可证更改只是一个 Bug 而已

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

oschina
2013/06/19
5.5K
41
C#关于制作截图工具(一)<简单截图>

记得我以前开始想做截图工具的时候 在网上看了n多 虽然网上有很多这类文章 不过当时我感觉我看的那些文章对于我来说“太华丽”了有点 因为网上看的那些都是做的一整个截图工具上面包含了很多...

长平狐
2012/12/10
2.2K
0
解决Winform应用程序中窗体背景闪烁的问题

我的操作系统是Win7,使用的VS版本是VS2012,文中的代码都是C#代码。 这几天遇到一个问题,即我用一个嵌入图片的Panel作为Winform应用程序的背景,如下图所示: 这是一个Winform窗体,里面放...

北风其凉
2016/04/14
2.1K
3
C#实例:5个.net经典例子(窗体与界面设计)

C#实例:5个.net经典例子(窗体与界面设计) 实例001 带历史信息的菜单 实例说明 在开发图纸管理软件时,要求在菜单上记录用户最近打开的档案或图纸,以方便下次使用。如图1.1所示,单击“文...

庸人谷
2012/11/12
0
2

没有更多内容

加载失败,请刷新页面

加载更多

下一页

困扰当前数据中心管理的三大难题

导读 当企业发展到一定程度,或者之前的机房不能满足现在的数据中心使用时,企业会对数据中心进行迁移。那么在数据中心进行迁移的时候会遇到哪些风险呢?针对这些风险我们应该做出怎样的措施来...

问题终结者
8分钟前
0
0
设计模式:工厂方法模式(工厂模式)

工厂方法模式才是真正的工厂模式,前面讲到的静态工厂模式实际上不能说是一种真正意义上的设计模式,只是一种变成习惯。 工厂方法的类图: 这里面涉及到四个种类: 1、抽象产品: Product 2、...

京一
24分钟前
0
0
区块链和数据库,技术到底有何区别?

关于数据库和区块链,总会有很多的困惑。区块链其实是一种数据库,因为他是数字账本,并且在区块的数据结构上存储信息。数据库中存储信息的结构被称为表格。但是,区块链是数据库,数据库可不...

HiBlock
32分钟前
0
0
react native 开发碰到的问题

react-navigation v2 问题 问题: static navigationOptions = ({navigation, navigationOptions}) => ({ headerTitle: ( <Text style={{color:"#fff"}}>我的</Text> ), headerRight: ( <View......

罗培海
39分钟前
0
0
Mac Docker安装流程

久仰Docker大名已久,于是今天趁着有空,尝试了一下Docker 先是从docker的官网上下载下来mac版本的docker安装包,安装很简易,就直接拖图标就好了。 https://www.docker.com/products/docker...

writeademo
47分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部