¿Cómo redondear cantos de un TPanel?

[ecfisa]

Hola Parsec.

Unsatisfied forward or external declaration: 'TForm1.RedondearCtrl'
¿Puede que falte alguna librería?.

El problema es que al hacer la declaración: TForm1.RedondearCtrl, estás indicando que RedondearCtrl es un método perteneciente a la clase TForm1.

Fijate que en la declaración del procedimiento del código que te puse no figura 'TForm1', es decir que es un procedimiento no un método.

Sin embargo podrías hacerlo como método de TForm1 sin problemas. Declaralo dentro de la sección public o private, por ejemplo:

Código Delphi [-]
type
  TForm1 = class(TForm)
  private
    procedure RedondearCtr(AControl: TControl);
  public
  end;

Y luego presioná simultaneamente Ctrl+Shift+C. Delphi automáticamente te crea la cabecera del procedimiento para que puedas escribir (o copiar/pegar) dentro de él:

Código Delphi [-]
{ TForm1 }
procedure TForm1.RedondearCtr(AControl: TControl);
begin

end;

Un saludo.

[Parsec]

Ok, muchas gracias.

Funciona muy bien.

Saludos

[ecfisa]

Hola.

Creo que también te puede resultar interesante este artículo.

Un saludo.