Author: Jonas Bilinkevicius

Is it possible to change the shape of a TMemo to something like stRoundRec in a 
TShape?

Answer:

1   procedure TForm1.Button1Click(Sender: TObject);
2   var
3     rgn: HRGN;
4     r: TRect;
5   begin
6     r := memo1.ClientRect;
7     rgn := CreateRoundRectRgn(r.Left, r.top, r.right, r.bottom, 20, 20);
8     memo1.BorderStyle := bsNone;
9     memo1.Perform(EM_GETRECT, 0, lparam(@r));
10    InflateRect(r, -5, -5);
11    memo1.Perform(EM_SETRECTNP, 0, lparam(@r));
12    SetWindowRgn(memo1.Handle, rgn, true);
13  end;