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

[jiaxianglei]

我在Delphi6中如何选取照片的一部分(并不是全部)粘贴到一控件中，并在控件中显示出来。不知该用什么控件？如何实现上述功能？

[hammer_shi]

photoshop!

[black_fox]

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;

[tygh2000]

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;

[cndebug]

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