[Khronos]

Gracias por tu interes dec, pero tu code no me funciono. No se si tiene algo que ver, pero en el evento oncreate recorto las esquinas del form.

Código Delphi [-]
procedure DibujarControl(Control: TWinControl);
var
R:TRect;
Rgn: HRGN;
begin
        with Control do
        begin
        R:=ClientRect;
        rgn:=CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 8, 10);
        Perform(EM_GETRECT, 0, lParam(@r));
        InflateRect(r, -4, -4);
        Perform(EM_SETRECTNP, 0, lParam(@r));
        SetWindowRgn(Handle, rgn, True);
        Invalidate;
        end;
        end;

Salu2