Добрый день!
Заранее прошу прощения за очередной глупый вопрос, но...
Код:
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?