Как сделать отступ в Memo?

Материал из DRKB

Как сделать отступ в Memo?[править | править код]

С помощью API-функции SendMessage можно задать поля в Memo-компоненте. Если необходимо, например, сделать отступ в 20 пикселей слева то можно это сделать следующим образом:

var
  MyRect: TRect; 
begin 
  SendMessage(Memo1.Handle, EM_GETRECT, 0, LongInt(@MyRect)); 
  MyRect.Left := 20; 
  SendMessage(Memo1.Handle, EM_SETRECT, 0, LongInt(@MyRect)); 
  Memo1.Refresh; 
end;


действует до первого изменения размеров компонента TMemo, поэтому указанный код необходимо поместить в обработчик OnResize компонента владельца - формы или панели. Приводит к дополнительной перерисовке TMemo при отправке сообщения.


ID: 00549