图片上取活动一块区域?????

Question

我想在图片上的一复制矩形区域并在另IMAGE中显示,这个矩形大小固定,位置随鼠标移动但边界不超过图片的范围!谢谢指点迷津了?????

Answer 1

//在Form上放两个TImage: Image1, Image2. Image1 加载图片
procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  //边界检测
  if (X < 10) or (Y < 10) or (X > Image2.Width - 10) or 
     (Y > Image2.Height - 10) then
    exit;  //复制Image2上面的20 * 20大小的图片到Image1上面
  Bitblt(Image1.Canvas.Handle, 0, 0, 20, 20, Image2.Canvas.Handle,
         X - 10, Y - 10, SRCCOPY);
end;

Answer 2

一意孤行:先谢过了?我是想在IMAGE2上出现一个矩形空方框(比如颜色为红色),鼠标移到IMAGE2上鼠标跟随移动到合适位置,后做一个BUTTON单击时,实现矩形空方框中的内容出现在IMAGE1中???