Как найти позицию текстового курсора в пикселях?

Как найти позицию текстового курсора в пикселях?

var
 pt: TPoint;
begin
 with richedit1 do begin
  Perform( messages.EM_POSFROMCHAR, WPARAM(@pt), selstart );
  label1.caption := Format('(%d,%d)', [pt.x, pt.y]);
 end;
end;
var
 r: LongInt;
begin
 with memo1 do begin
  r := Perform( messages.EM_POSFROMCHAR, selstart, 0);
  if r >= 0 then begin
  label1.caption := IntToStr(HiWord(r));
  label2.caption := IntToStr(LoWord(r));
  end;
 end;
end;

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...