Boton con esquinas ovaladas

[ecfisa]

Hola kaua77.

Si como dice el título de tu mensaje deseas las ("esquinas ovaladas") podes hacer:

Código PHP:

void roundCtrl( TWinControl* wc ) {
  TRect rct = wc->ClientRect;
  HRGN  rgn = CreateRoundRectRgn( rct.left, rct.top, rct.right,
    rct.bottom, 25, 25 );

  SendMessage( wc->Handle, EM_GETRECT, 0, (LPARAM)&rct );
  InflateRect( &rct, -5, -5 );
  SendMessage (wc->Handle, EM_SETRECTNP, 0, (LPARAM)&rct );
  SetWindowRgn( wc->Handle, rgn, true );
  wc->Invalidate();
} 


Ejemplo de uso:

Código PHP:

void __fastcall TForm1::Button1Click(TObject *Sender) {
  roundCtrl(Button1);
  roundCtrl(Memo1);
  ...  etc
} 


Ahora, como dice el texto de tu mensaje: "sus cuatro lados ovalados" (como si estuviese inflado), vas a tener que hacer lo que te sugiere kapcomx.

Si por otro lado desearas darle forma elíptica:

Código PHP:

void ellipticalCtrl(TWinControl* wc) {
  HRGN   rgn;

  rgn = CreateEllipticRgn(2, 2, wc->Width - 2, wc->Height - 2);
  SetWindowRgn(wc->Handle, rgn, true);
} 


Ejemplo de uso:

Código PHP:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  ellipticalCtrl(Button1);   // form->color <> clBtnFace
  ellipticalCtrl(Memo1); 
  ... etc
} 


En este último caso y tratándose de un TButton que no posee la propiedad Color, servirá solo si el form es de otro color ya que si el color del form es clBtnFace al desaparecer sus bordes sólo se verá la leyenda (Caption) del botón.

Saludos