cómo recortar (en circulo) un formulario en delphi?

[[seoane]]

Coloca esta instruccion, por ejemplo, en el evento OnCreate del formulario. Lo recortara en forma de ellipse, si el formulario es cuadrado quedara un circulo.

Código Delphi [-]
SetWindowRgn(Handle,CreateEllipticRgn(0,0,Width,Height),TRUE);