¿Cómo redondear cantos de un TPanel?

[ecfisa]

Hola Parsec.

Por favor para cada pregunta iniciá un nuevo hilo tal como dice el punto #8 de la Guía de estilo:

Preguntas que no hay que hacer

He aquí algunos ejemplos de preguntas mal planteadas que seguramente nadie va a responder, por favor te pedimos que no hagas este tipo de preguntas.

1.- Tengo problemas con Delphi ¿puede alguno ayudarme?

2.- ¿Me podéis pasar el crack X?

Cómo ves la primera es insustancial, poco te van a poder ayudar, en cuanto a la segunda, no queremos que el foro se convierta en un lugar de piratas.

Tampoco debes realizar varias preguntas en un mismo hilo, para que te hagas una idea mejor te ponemos un ejemplito...

1.- ¿Cómo podría cambiar las propiedades de una carpeta y de unos archivos para convertirlos en ocultos?

2.- ¿Tiene Delphi alguna función para validar una cadena y saber si su formato es tipo hh:mm:ss?

Son dos temas totalmente distintos, debes abrir un hilo para cada una de ellas, por favor no hagas las dos preguntas en un mismo hilo.

Para rendondear controles, variante más variante menos, hay un conocido procedimiento:

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

Ejemplo de llamada:

Código Delphi [-]
  RedondearCtrl(Edit1);

Con gusto trataremos tu segunda consulta en su nuevo hilo.


Un saludo.