DB Memo Text Abstand zum Rand

[kumar89]

Sers @ all,

Ich hab folgendes Problem:

Ich hab auf meinem Formular ein DBMemo, da mein Formular farbig gestaltet ist, sieht mein Text in DB Memo Feld zu breit aus und möchte daher, das ich mein Text bisschen Rücken könnte also Abstand zum oberen Rand vom DBMemo und zum linken Rand.
Gibts da ein bestimmten Befehl dazu?
Unter Eigenschaften hab ich dazu nichts gefunden.

Könnt ihr mir bitte helfen? :)


Danke im vorraus


Kumar

[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;