Seitengröße eines RichEdits ändern

[Christian Seehase]

Moin Markus,

kleiner Workaround:

Delphi-Quellcode:

var
  rcWork : TRect;

begin
with myForm[Ziffer].REHaupt begin
  SendMessage(Handle,EM_GETRECT,0,LongInt(@PageRect));
  rcWork.Left   := PageRect.Left+50;
  rcWork.Right  := PageRect.Right+50;
  rcWork.Top    := PageRect.Top;
  rcWork.Bottom := PageRect.Bottom;
  PageRect      := rcWork;
  SendMessage(Handle,EM_SETRECT,0,LongInt(@PageRect));
end;