关于鼠标控制的一个问题

Question

在一个图片上 如何控制鼠标划定一个区域,要显示出划定的区域，再把所得区域的四个坐标参数传递到一个过程中？？：）
其实就像WINDOWS下拖动文件时 可以拉一个框那样：）
请指教：）

Answer 1

大概其的意思是这样的var
  bpoint, epoint: TPoint;procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  bpoint.X := X;
  bpoint.Y := Y;
end;procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  epoint.X := X;
  epoint.Y := Y;
  image1.Canvas.Pen.Color := clBlue;
  image1.Canvas.Pen.Style := psdot;
  image1.Canvas.Brush.Style := bsClear;
  image1.Canvas.Rectangle(bpoint.X, bpoint.Y, epoint.X, epoint.Y);
end;