zoukankan      html  css  js  c++  java
  • 把窗体客户区图像保存到文件或剪切板

    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    uses Clipbrd; {剪切板单元}
    
    //把窗体客户区保存为图片
    procedure TForm1.Button1Click(Sender: TObject);
    var
      bit: TBitmap;
    begin
      bit := TBitmap.Create;
      bit := Self.GetFormImage;
      bit.SaveToFile('c:\temp\img1.bmp');
      bit.Free;
    end;
    
    //用一句话完成上一个过程
    procedure TForm1.Button2Click(Sender: TObject);
    begin
      Self.GetFormImage.SaveToFile('c:\temp\img2.bmp');
    end;
    
    //把窗体客户区图像复制到剪切板
    procedure TForm1.Button3Click(Sender: TObject);
    var
      Format: Word;
      Data: Cardinal;
      APalette: HPALETTE;
    begin
      {TBitmap.SaveToClipboardFormat 函数的三个参数都是接受数据用的, 按要求类型定义即可}
      GetFormImage.SaveToClipboardFormat(Format, Data, APalette);
      {放入剪切板}
      Clipboard.SetAsHandle(Format, Data);
    end;
    
    end.
    
  • 相关阅读:
    Problem 3
    Problem 2
    Problem 1
    Python基础 装饰器
    算法——狄克斯特拉算法
    A Knight's Journey POJ 2488
    多校10 1007 CRB and Queries
    多校9 1007 Travelling Salesman Problem
    多校8 1008 Clock
    多校7 1005 The shortest problem
  • 原文地址:https://www.cnblogs.com/del/p/1197961.html
Copyright © 2011-2022 走看看