TEdit mit Rand

[Flocke]

Delphi-Quellcode:

// Setzt den linken Rand
SendMessage(Edit1.Handle, EM_SETMARGINS, EC_LEFTMARGIN, MAKELONG(LinkerRand, 0));
// Setzt den rechten Rand
SendMessage(Edit1.Handle, EM_SETMARGINS, EC_RIGHTMARGIN, MAKELONG(0, RechterRand));
// Setzt beide Ränder
SendMessage(Edit1.Handle, EM_SETMARGINS, EC_LEFTMARGIN or EC_RIGHTMARGIN, MAKELONG(LinkerRand, RechterRand));