Author: Jonas Bilinkevicius

How to get the text width and height in a TRichEdit

Answer:

1   procedure TForm1.Button3Click(Sender: TObject);
2   var
3     pt: TPoint;
4   begin
5     with RichEdit1 do
6     begin
7       pt := point(0, 0);
8       Perform(messages.EM_POSFROMCHAR, WPARAM(@pt), SelStart);
9       label1.caption := Format('(%d, %d)', [pt.x, pt.y]);
10    end;
11  end;