Как сделать отступ в 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