como hacer un panel o botones con las esquinas ovaladas

[viajero2015]

Hola colegas
hace tiempo vengo pensando como hacer un boton, panel o otro objeto, hacerlo pero con las esquinas media redonda, o sea ovaladas?.

alguien me podra ayudar?.
gracias TOMAS

[marcoszorrilla]

Coloca un Tpanel de distinto color al formulario, para poder ver bien el efecto, pon un botón y el siguiente código a modo de ejemplo:


procedure TForm1.Button1Click(Sender: TObject);
var
rgn:hrgn;
begin
rgn:=CreateRoundRectRgn(0,0,Panel1.width,Panel1.height,30,30);
SetWindowRgn(Panel1.handle,rgn,True);
end;


Un Saludo.

[Al González]

¡Buen día!

Me interesa encontrar un componente botón gratuito para Delphi 7 (o en su defecto que incluya el código fuente), que sea un botón que pueda tener las esquinas reondeadas o no y ser plano (sin efecto de sobra 3D).

¿Han utilizado un componente con esas características?

Les agradezco mucho sus aportaciones. Seguimos en contacto.

Al González :).