delphi 图片处理高手请进(20分)

  • 主题发起人 主题发起人 zzlyx
  • 开始时间 开始时间
Z

zzlyx

Unregistered / Unconfirmed
GUEST, unregistred user!
delphi 图片处理高手请进
要求测试:将窗体转为图片
1)窗体是长度和宽,长度有100CM长,宽度为21.0CM。
2)怎么处理,截图只能截看到的介面,这点我想是行不通的。
3)是否有其它的方法
 
后台绘制
 
楼上说的不明白
 
自己找资料吧,很麻烦的,忙得很,没有时间给代码,
 
晕死,把Form的Canvas整个拷给一个TBitmap就不会只有看到的介面了,查查Canvas的Handle的相关属性就知道了,用BitBlt函数
 
用这个BitBlt只能获取看到的介面
 
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Image1: TImage;
Shape1: TShape;
Button1: TButton;
Memo1: TMemo;
procedure FormClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormClick(Sender: TObject);
var
Bitmap:TBitmap;
begin
Bitmap:=TBitmap.Create;
Bitmap:=self.GetFormImage();
Bitmap.SaveToFile('Form.bmp');
Bitmap.Free;
end;
end.
 
太长见了,建议搜索以前的贴子....有n多....
 
后退
顶部