[luivilla]

Добрый день!
Заранее прошу прощения за очередной глупый вопрос, но...

Код:

procedure TForm1.Image1Click(Sender: TObject);
begin
if speedbutton1.Down=true then
 image1.Canvas.Ellipse(mouse.CursorPos.X-20,mouse.CursorPos.Y-20,mouse.CursorPos.X+20,mouse.CursorPos.Y+20);
end;

Как мне казалось, по клику на image должна отрисовываться окружность с центром в месте клика и радиусом 40. Она и рисуется. Только не в месте клика. Почему?
Есть подозрение, что клик отслеживается по форме, а рисую я на image. Как в таком случае отследить именно по координатам image?

[icWasya]

Обрабатывай не Click, а MouseDown или MouseUp.

[SCrat.ORS]

В обработчике Image1 -> onMouseMove есть параметры X, Y: Integer - это и есть координаты курсора внутри image

[luivilla]

Да, действительно (чувствую себя дятлом).
А почему так? Точнее, в каком случае используется onClick тогда? Это уже просто интересно.

[SCrat.ORS]

onClick - это просто клик по Image. Может тебе хочется например кнопку нарисовать на основе Image, и тут координаты тебе особо не нужны.
Кстати, если принципиально использование OnClick, то для получения координат можно взять координаты курсора по форме и прибавить положение Image:

Код:

mouse.CursorPos.X + Image1.Left

Думаю суть понятна

[Freeman]

Сообщение от SCrat.ORS

Кстати, если принципиально использование OnClick, то для получения координат можно взять координаты курсора по форме и прибавить положение Image

Это и будет дятлокод.

[NumLock]

Сообщение от SCrat.ORS

прибавить положение Image

тогда уж:

Код:

procedure TForm1.Image1Click(Sender: TObject);
var
  p: TPoint;
begin
  GetCursorPos(p); // p:=Mouse.CursorPos;
  p:=Image1.ScreenToClient(p);
  Memo1.Lines.Add(Format('%d %d', [p.X, p.Y]))
end;

[SCrat.ORS]

Поржали успокоились =)
NumLock, не пугай новичков таким кодом =D