unit1.pas

Delphi实效编程百例的随书源代码 这是其中的程序控制部分

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Panel1: TPanel;
    Image2: TImage;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
//向Image控件中导入一张图片
begin
  image1.Picture.LoadFromFile('1.bmp');
end;

procedure TForm1.Button1Click(Sender: TObject);
//剪切图片
var
  ARect: TRect;
begin
  Clipboard.Assign(Image1.Picture);
  with Image1.Canvas do
  begin
  CopyMode := cmWhiteness;
  ARect := Rect(0, 0, Image1.Width, Image1.Height);
  CopyRect(ARect, Image1.Canvas,ARect);
  CopyMode := cmSrcCopy;
  end;
end;


procedure TForm1.Button2Click(Sender: TObject);
var
Bitmap: TBitmap;
begin
if Clipboard.HasFormat(CF_BITMAP) then
//将图片复制到剪切板中
    begin
    Bitmap := TBitmap.Create;
      try
      Bitmap.Assign(Clipboard);
      Image2.Canvas.Draw(0, 0, Bitmap);
      finally
      Bitmap.Free;
      end;
    end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Clipboard.Assign(Image1.Picture); 
end;

end.