Author: Tomas Rutkauskas

Define a border for your TMemo field

Answer:

The following snippet defines a left border of a width of 20 pixels: 

1   var
2     Rect: TRect;
3   begin
4     SendMessage(Memo1.Handle, EM_GETRECT, 0, LongInt(@Rect));
5     Rect.Left := 20;
6     SendMessage(Memo1.Handle, EM_SETRECT, 0, LongInt(@Rect));
7     Memo1.Refresh;
8   end;