Канвас, по клику происходит вывод текста (координаты) в том месте где был клик

@kaz4640984 · Регистрация: 09.09.2013

Author24 — интернет-сервис помощи студентам

Канвас, по клику происходит вывод текста(координаты) в том месте где был клик. Сделал, но координаты пишутся не правильные, не могу понять почему!?
код

Delphi

procedure TForm1.Image1Click(Sender: TObject);
 
var
MyMouse: TMouse;
x,y:integer;
begin
with Form1.Canvas do begin
Font.Name := 'Tahoma';
Font.Size := 20;
Brush.Style := bsClear;
end;
 Form1.Caption := inttostr(MyMouse.CursorPos.x) + 'Õ ' +inttostr(MyMouse.CursorPos.y);
image1.Canvas.TextOut(MyMouse.CursorPos.x,MyMouse.CursorPos.y,inttostr(MyMouse.CursorPos.x) + 'Õ ' +inttostr(MyMouse.CursorPos.y));
 
end;

quwy · 14.10.2014, 17:11

kaz4640984, это потому что у курсора координаты отсчитываются от верхнего-левого угла экрана, а у канвы -- от верхнего-левого угла клиентской области компонента, чья канва используется для рисования. Для пересчета используйте метод ScreenToClient.

@NotBeginner · 14.10.2014, 17:31

Delphi

procedure TForm1.Image1Click(Sender: TObject);
var
  t : TPoint;
begin
   t := Mouse.CursorPos;
   t := ScreenToClient(t);
   Form1.Caption := inttostr(t.x) + 'Õ ' +inttostr(t.y);
   image1.Canvas.TextOut(t.x,t.y,inttostr(t.x) + 'Õ ' +inttostr(t.y));
end;

quwy Native x86 5514 / 3273 / 934 Регистрация: 13.02.2013 Сообщений: 10,423
	14.10.2014, 17:11	2
	kaz4640984, это потому что у курсора координаты отсчитываются от верхнего-левого угла экрана, а у канвы -- от верхнего-левого угла клиентской области компонента, чья канва используется для рисования. Для пересчета используйте метод ScreenToClient. 1

	14.10.2014, 17:31