Очень срочно!!! Как по координатам курсора в пикселях получить его координаты в RichEdit?
Как по координатам курсора в пикселях получить его координаты в RichEdit (в строках и символах)? Пробовала через
RichEdit.Perform(EM_CHARFROMPOS,0,MAKELPARAM(x,y))
где x,y - координаты курсора, но он чего-то выдает AccessViolation at address...
Может я что-то делаю неправильно?
ПОМОГИТЕ ПОЖАЛУЙСТА!!!
RichEdit.Perform(EM_CHARFROMPOS,0,MAKELPARAM(x,y))
где x,y - координаты курсора, но он чего-то выдает AccessViolation at address...
Может я что-то делаю неправильно?
ПОМОГИТЕ ПОЖАЛУЙСТА!!!
procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
scr:tagpoint;
re:TPoint;
begin
GetCursorPos(scr); //получение координат курсора
Edit1.Text:=IntToStr(scr.x)+' '+IntToStr(scr.y);
re:=TPoint(scr);
re:=RichEdit1.ScreenToClient(scr); //получениу координат курсора в RichEdit
Edit2.Text:=IntToStr(re.x)+' '+IntToStr(re.y);
end;
Y: Integer);
var
scr:tagpoint;
re:TPoint;
begin
GetCursorPos(scr); //получение координат курсора
Edit1.Text:=IntToStr(scr.x)+' '+IntToStr(scr.y);
re:=TPoint(scr);
re:=RichEdit1.ScreenToClient(scr); //получениу координат курсора в RichEdit
Edit2.Text:=IntToStr(re.x)+' '+IntToStr(re.y);
end;