DB Memo Text Abstand zum Rand

[roga]

Ich hatte das mal für ein DBRichEdit geschrieben, müsste eigentlich für ein DBEdit genauso funktionieren:

Delphi-Quellcode:

procedure SetDBMemoTextRect(ADBMemo: TDBMemo; WLeft, WTop: integer);
var 
  R: TRect;
begin
   ADBMemo.Perform(EM_GETRECT, 0, LongInt(@R));
   R.Left := WLeft;
   R.Right := ADBMemo.ClientWidth - WLeft;
   R.Top := WTop;
   R.Bottom := ADBMemo.ClientHeight - WTop;
   ADBMemo.Perform(EM_SETRECT, 0, LongInt(@R));
   ADBMemo.Refresh;
end;