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;