我用Image加载了一幅图，图里有几个不规则的图形，请问如何判断鼠标点击在哪个图形上！？谢谢！

Question

我用Image加载了一幅图，图里有几个不规则的图形，请问如何判断鼠标点击在哪个图形上！？谢谢！

Answer 1

你只有一幅图，图里有几个不规则的图形？？？？？还不是就是一幅图吗？想一想哟！！！你只能判断是否在Imae上，那样应该那难的

Answer 2

不可能的，原本在VB中，可以建立一个区域的，但是区域是事先你已经定义好的，这样才能判断！一个图中的区域，这个只能交给PhotoShop了

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
begin
    F_rectTest := Rect(20,20,80,80);
    with Image1.Canvas do
    begin
        Brush.Color := clBlack;
        FillRect(Image1.ClientRect);
        Brush.Color := clRed;
        Rectangle(F_rectTest);
    end;
end;procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
    aPoint : TPoint;
begin
    aPoint.X := X;
    aPoint.Y := Y;
    if ptInRect(F_rectTest, aPoint) then   //判断点是否在rect里
        ShowMessage('鼠标在矩形内。');
end;是这意思吗？