Seleccionar Subzonas de una Imagen

[neuronic]

Inserta un TImage , cargas la imagen image1.Picture.LoadFromFile();

en el evento de onMouseMove

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var Cuadro:Trect;

begin
Cuadro := Rect(image1.Left,image1.Top,image1.left+image1.Width,image1.Top+image1.Height);
if (PtInRect(Cuadro,Point(X,Y))) then
form1.Caption := 'area A'
else
form1.Caption := 'No area';
end;

con PtInRect puedes saver si la cordernada x,y se encuentra dentro del cuadro, en este ejemplo seria la totalidad de la imagen, puedes poner
Rect(image1.Left,image1.Top,image1.left+10,image1.Top+10);
seria un cuadro de 10x10 de la esquina superior, izquierda

espero que te sirva!!!!


la otra manera que haria seria integrando un flash en el proyecto, y con alguna tool de estas que puedes hacer flash click, click , click ya estaria
para mas info http://delphi.about.com/od/graphics/l/aa040103a.htm
http://www.delphiflash.com/library-shockwave-flash.php referencia de metodos y eventos del control de flash