文档章节

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

涂孟超
 涂孟超
发布于 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
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

没有更多内容

加载失败,请刷新页面

加载更多

OSChina 周日乱弹 —— 小心着凉 @红薯

Osc乱弹歌单(2018)请戳(这里) 【今日歌曲】 @莱布妮子:5.33起,其声呜呜然,如怨如慕,如泣如诉。余音袅袅,不绝如缕。分享Arch Enemy的单曲《Bridge Of Destiny (2009)》 《Bridge Of...

小小编辑
今天
271
4
what f,,

anlve
今天
9
0
初级开发-编程题

` public static void main(String[] args) { System.out.println(changeStrToUpperCase("user_name_abc")); System.out.println(changeStrToLowerCase(changeStrToUpperCase("user_name_abc......

小池仔
今天
15
0
现场看路演了!

HiBlock
昨天
23
0
Rabbit MQ基本概念介绍

RabbitMQ介绍 • RabbitMQ是一个消息中间件,是一个很好用的消息队列框架。 • ConnectionFactory、Connection、Channel都是RabbitMQ对外提供的API中最基本的对象。Connection是RabbitMQ的s...

寰宇01
昨天
18
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部