如何选取照片的一部分粘贴到一控件中

Question

var
  Bitmap: TBitmap;
  MyRect, MyOther: TRect;
begin  MyRect := Rect(10,10,100,100);  MyOther := Rect(10,111,100, 201);
  Bitmap := TBitmap.Create;
  Bitmap.LoadFromFile('c:\windows\tartan.bmp');
  Form1.Canvas.BrushCopy(MyRect, Bitmap, MyRect, clBlack);
  Form1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect);
  Bitmap.Free;

Answer 1

var tbmp:tbitmap;  //
procedure TForm1.Button1Click(Sender: TObject);
var img:array[0..2,0..2] of timage;
var i,j,step:integer;
begin   step:=tbmp.Width div 3;
   for i:=0 to 2 do
    begin
       for j:=0 to 2 do
         begin
            img[i,j]:=timage.create(application);
            img[i,j].parent :=form1;
            img[i,j].Left :=j*step+10*j;
            img[i,j].top :=i*step+10*i;
            img[i,j].width :=step;
            img[i,j].height:=step;
            img[i,j].Canvas.CopyRect(rect(0,0,step,step),tbmp.Canvas ,rect(j*step,i*step,j*step+step,i*step+step));
          end;
    end;
procedure TForm1.FormActivate(Sender: TObject);
begin
   tbmp:=tbitmap.Create ;
   tbmp.LoadFromFile('c:\1.bmp');
end;

Answer 2

你还是现在外部用图象工具裁剪好，然后在LOAD如IMAGE控件吧。
楼上老兄的写法，只能对BMP的起作用，其他格式会出错的！