Mit folgendem Code kannst Du viele verschiedene Aktionen ausführen, je nachdem, wohin Du im Shape klickst:
Delphi-Quellcode:
function getPos(x,y:integer):TPoint;
const
w=10; //width
h=10; //height
t=0; //top
s=1; //space
begin
result.x:=((x-t) div (w+s) );
result.y:=((y-t) div (h+s) );
end;
procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var r:TPoint; px,py:integer;
begin
r:=getpos(x,y);
px:=r.X;
py:=r.Y;
x1.Caption :='X = '+ Inttostr(px);
y1.Caption :='Y = '+ Inttostr(py);
// if px=1 then...
// if py=2 then...
// ...
end;