Image mapping

[Alexandre Machado]

TIWImage.OnAsyncMouseDown is the event that you are looking for.

Add an OnAsyncMouseDown event to your image and add this code to it:

Code:

procedure TIWForm1.IWImage1AsyncMouseDown(Sender: TObject; EventParams: TStringList);
var
  x, y: Integer;
begin
  x := imagMap.GetAsyncParam('X', 0);
  y := imagMap.GetAsyncParam('Y', 0);
  WebApplication.ShowMessage('X = ' + IntToStr(x) + ', Y = ' + IntToStr(y));
end;