Zmiana wartości lewego i prawego marginesu
Aby po kliknięciu przycisku Button1 zmienić wartość lewego i prawego marginesu w RichEdit1:
void __fastcall TForm1::Button1Click(TObject *Sender) { TRect R; int LeftMargin = 20; int RightMargin = 10; R = RichEdit1->ClientRect; R.Left = R.Left + LeftMargin; R.Top = R.Top + 2; R.Bottom = R.Bottom - 2; R.Right = R.Right - RightMargin; SendMessage(RichEdit1->Handle, EM_SETRECT, 0, Longint(&R)); }