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

Материал из DRKB

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

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;


ID: 00581