|
|
|||
|
wm-help.net -> Электронная библиотека -> Delphi -> 39 советов по Delphi -> Как сделать отступ в Memo?Как сделать отступ в Memo?
var Rect: TRect; begin SendMessage( Memo1.Handle, EM_GETRECT, 0, LongInt(@Rect)); Rect.Left:= 20; SendMessage(Memo1.Handle, EM_SETRECT, 0, LongInt(@Rect)); Memo1.Refresh; end; |