Как у Frame сделать закругленные края?

[pavellyba]

Как у Frame сделать закругленные края?

[spamer]

Как вариант через регионы.
Например:

// Наш фрейм

// ***

  TFrame1 = class(TFrame)
  private
    procedure CMShowingChanged(var Message: TMessage); message CM_SHOWINGCHANGED;
  public
    { Public declarations }
  end;

// ***

procedure TFrame1.CMShowingChanged(var Message: TMessage);
 var
   rgn: HRGN;
begin
  inherited;
  if Showing then
  begin
// Взято с этого сайта - http://www.delphisources.ru/pages/faq/base/form_round_edges.html

   rgn := CreateRoundRectRgn(0,// x-coordinate of the region's upper-left corner
    0,            // y-coordinate of the region's upper-left corner
    ClientWidth,  // x-coordinate of the region's lower-right corner
    ClientHeight, // y-coordinate of the region's lower-right corner
    40,           // height of ellipse for rounded corners
    40);          // width of ellipse for rounded corners
  SetWindowRgn(Handle, rgn, True);
  end;
end;

// ***

// Наша главная форма
procedure TForm1.FormCreate(Sender: TObject);
var
  fr: TFrame1;
begin
  fr := TFrame1.Create(Self);
  fr.Parent := Self;
// ***
end;

Код - просто набросок...работает...